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From The Editor's Desk (?) 



Httf ilih^Tliclifftl Issue of ThfTmnfi*kli)r!Vuluniu'IJsHiir 1 nmrkNA rn^wili,i|iK'r iii l)n'llkMjrniriMris.Kir>r slnaMhUis 
iirliiiifly llu'3Isl issue', hi! Ilir firsl wKli iUy|irsrl int<'Tior, ctiiour rover, ^uil-ulvcrllshiH. 

Ilatk lu A|irf!if[ltils vtsu, romnnulc^rr Canailii, thcr^rlHiiial [MihliNlin, tU-t iili^il r-MlisriMiliimcTlicTrflnflactor lu^ivour <»/ 
\hv ( otuiuoilurr II S. iTi.iK.i/MK- To fulfill Hii[)SLn|»IJnu n[>|if^,iii(j;is. iwo uioa- Kmh^s wcu- mhuuiUijiI dJiU iiw umti U>[ 

prnHfrtm Wfis prepared lor IN fiurtl m(l|HitMl sremefl IhM Thr TmnsHdor would ^ 
PKT pnhhr;in"ns, Hl«.hl..k'J up l)y Ihr "Mi'tJ^i-M.iys" 

Slinrllv after Iht- List Triinsaclor was shi|i|H'ii, Hie calls and iHlc^rs srnr(*'d foiuiun In, They ningfld from rrilinil Id 

(|is^iip|i<iuUril Wli.ihouM I fiayMI)fgananswefliige)(plaitiiu|illiiil. "lIiLUJiily tujpelorTlii?Tramdclorwosailiiin^:elur lllu 

t'on>f>Hein Ihi' prolessloiwl mAg'tflrit'' iruhntn'. ;i l»alllr Tlie'fV^uisartor could not possibly wilhsland In Its pn-scnil Kmir'. 

Well, eilhrrllu' slat swi'tiHinhe right piislMoinhaldity, or iiiylHo-wav('Uiiathsw<'rrlRiu|iUiuril^ TlH-phuue r-iugaa^iu; 
Prunk bmtlie of (\iriadian Milju DisUitJUturs (CM[)} was m Ww udiL-i i<nd, 

"Karl lidvuyoii liiuuytil abuui taking ou Thi'Tiuu^uUu! a,i lui ljid(*piiiduut [lublkahon?" 

"Sun\ but [Iil'Uihl', work and lu^Ls iiivolvu-d wuulil pul luu \ni\w prowrbjal poor bouse, I'tl net- a s|H>nsor," 

"Well.yuu'vt'^ul one. All we neetl iJi permission Ironi Coiiiinirtlore," 

The Traasaelor wuh allvp n^Jiln! 

I'll like to lakt' thh uppuMunily lo wekuuie batk Tiansaclur subvLTtbei^ thai hove (orwariled renewaU- Tvi' seui hevetal 
familiar names romefhrnuHh our suh^rflptton depart nu*nl fiiiil weappret'laleynur siipfmii wllboiir wblrb Ifiere would be 
no Transaifor Id ai^i liki- lo exlend fireeiiuHs lo any new Transaelor readers New uii<'i<-<f is ,i raaior ob|i\llvr lui Liny 

iiia^ta/u^t-^ and aldioiiBli we wui/ldttijii lobe your sbiHltMnusldeMrutleoriipulirig resource, we do think tha 
TransaLl(»r lnf(jrrnallvtv enlerb'iinlnfl, ami a valuablr .i'.m'I {(^yourcompulfr iuvesltuenl. 

Like any niaRa/ine, we depend on revenue f|en<.*ra[ed fhtou^li adverlishitJ. IM unlike most nia^^a/lnes, our sponsor fiallci 
m tlir buNinrss of seilin^ niKrns, piiipluiab, and anessorics, ( onsiuusly aware t»f tlx- posiUon a aunpib-loi may lake 
wliiMi njn,sidciinK iHlvc-rlisiriH uiKlet lliene cirajmHlann% I'tl like lo poh^ 

lnlKienn'.ifi\ diiisjon loiirrept iidverlisiUKforany produe! Ycju'II set'rMDadslnTlieTrjmsarlor, bui no mure sol ban any 
oiher niai^a/uie The mif rorompiiii^ industry seenis lo be uneol the lew that is unaffected by the uLonotuy, It wiaild bru 
i-ri\uv U) suppress the expfwure of any line quality ilem !lirtf euhanees the mitTocompuler market. 

1 welcome your eotuinents, (nvourableor noi, because your (eedhark Is the key 
lo (mprovemi'nl, soinr^lluii^ I intend lo riiakr prrpelual. 

So, The Transartor has a new bofne, a new look, and a ru'W (ufnre, 
niui' again, ibankyou loryoui suppotb I it-^o^a, 
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"nwTVadhmlnr iFiiHiMinliedlif ninihrlih. lilinti'Hjioi yi-m, hy Cjiiiad MdJJ.IIlHlittiurihrv I (MifTnl Ir lit in 

nu way lonnfiUtl wiih CiniiMHHkfn' Hiisliiens Hflthlne* Lid m liHniini-ton" lM(u*|jnfrtl(i1 CoMiiiMidnrc 
HtulCoinitHNl(ij»')inMln.l UiiMiei(Pi:T. CUM. VIC, MAX, fi^ljiie fi'Hi^lerMJ ItihlrijMrkFiul CuinUhHlriri^ llli^ 
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^mMldih'k Mail 



liwki>ki.ijPtiin'tlJll^ivalUi>li'lur ViitutiiPNl.^. A:i iieirolVMiiniltlttlUCiIri ,UM.A $111 UN nilorhc-i 
li:iiS hrhl,>IV*ihj(m»2 nTiCli. ,IISA*l7liS,rtlhillM-illWUS V.itnrne:i lloCiln,, U,S AJIltJN , 
till utlier ll'i us Siibirtirl Ifi lrori> lulal wlif^n unkiriltif itii 4 VohniiPir 

Vuhinn'l .^^ihMlUyt^rilt'r^ niiijirmt .'lf>* onurdpnu* Itlur iiiiinv 

Send M\ auhic riptinti-* tn T\\v Ttuns-vU^r, Sulinriplimi', I>i'|irirrinrnT, M)n SUfW\ Avi'iuie Millnii 
nmarui, VmunUy [MX :iP7, llii H7H 7:^77. 

Wmil rnndvrrMH'ntmHkhl in M^Vfk^^'f CaW ar write tut morr^tnrnrnmiion, 

Kd»i^r*ni t'dhlfibutlunn art alwava welmmf flnd will n\^\M\i\ In Ihc iwiir IminrftintPlv fiill'>whiH ri'^'nljil 

l*irlrrrni Ii;i Lx2Ek.fl, lll'1ll,Mi]riO. m H2rllhi;^kl'F|t■^ wilh Wonll'ro, WurdCr^kft. Siipi'PM iljil, '^r SilOtr^Xl 

ll|e» riiirttHini IhtinK* nvn 2^ \\tw\ ^U'niU\ Uv piovldeti on ditk ui in|H' M iviipih ^h^jtild \ii- 

iy|Kiwriritih. 'V'Mr hpmni, Willi >\n\ta\ iUiWmh'ft, nt lorilMl.'i il^iirlv iiuiiki'd I'IhjImfi oI jii|iNnr>t ni 
ecuiipniPiil. -Kid ilhiHirfltioiih wHI k' IhitinVHl with at(ir|i-s drpLMidiiiB fii\ i|iijiliry ni^kHtrfr. i.tpi % liih] 
phohihWlll hii reriiiJii^d 1111 ri'i|nrNl 

AllnuiliTl<il,4iu'pl**'nni*HTH''i1h*M'rii|(r'rrv(ifTlieTun>j»rot iinlll il Jhpiihijshi'd <)nn'iMl'^is<iI, AiiKuitN 
niiiv ir-iu1>nill iirli{'lr>t liinf3ii'r pu^iliL itikms lU thrir own diHi tvWim niliri iimHJi/tiH-i^ "f any luhin-, au- 
ilivili'iJluiupv iiMleridl If oil I iht Trill ^m till, [jnivhl'.^l liuil cri^d^l l^iMiV^fi r^llin Aorlini {wUrw rtpiiiiirtlilr-) 
ANU Mil' liittiH^mhir 

Tli<? npliiiuhri mpTi'i-iKl in umtriliuE^il julii t<*N iiir nu\ oni'mnrilv llmtr mI Thr Trnmrn Inr A|thiiu)]h 
aerurAi^' \f> it ma\iH (il>|mlivf, TlLf< Ttminacloi mnnul duum'^ li.^lilliiv h'l i-jruu in iirMili^s ut pnirr/tmii 
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Program Listings in The Transactor 



All programs lisled in The Transactor will appear as ihey would on your screen in Upper/Lower case mode. Many programs 
will contain reverse video characters tha( represent cursor movements, colours, or function keys. These will also be shown 
exactly as Ihey would appear on your screen, but they're listed here for reference. (Editor's Note: Some characters could not 
be typeset in lime for this list. They will appear on this page next issue) 

Occasionally programs will contain lines Iha! show consecutive spaces. Often the number of spaces you insert will not be 
critical to correct operation of the program. When it is, the required number of spaces will be shown. For example: 



print 



TIm Trontuctor 



flush right 



-would be shown as- print" [spacelO]flu&h right" 



Cursor ^'laraclers For PET / CBM / VIC / 64 



Down - 
Up - 
Right - 

Left 
RVS 
RVS Off - 






[Lft] 

D 



Insert 
Delete 
Clear Scrn 
Home 

STOP 




D 




■ 





Colour Characters For VIC / 64 



Back 


Q 


White 


D 


Red 


Q 


Cyan 


- [Cyn] 


Purple 


- [Pur 


Green 


D 


Blue 


-B 


Yellow 


- [Yell 



Orange 
Brown 

Light Red - 
Grey 1 - 

Grey 2 

Light Green - 
Light Blue - 
Grey 3 










- [Gr3] 



Function Keys For VIC / 64 




Fl- 

F2- n 

F3- H 

F4- n 



F5 
F6 
F7 

F8 
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News and New Products 



Do you hove a new product or service? Just send all the 
ik'tails lo us and we '// ^ee that it s pubiished in this section of 
ihe next Transactor. Ed. 



Standardized EducaUoiiiU SoHware 

This summer, aboul 30 Bf)ard5 of Ed- have been working on 
a collection of over 1000 programs in an attempt to stand- 
ardize educational software. On completion of this mam- 
moth task, all of these programs will work on virtually every 
Commodore machine with Ihe exception of the early BASIC 
1.0 PETs. Ihe VIC-20. and the new T and 'B' series 

computers. BASiCl Owasexcluded for obvious reasonSn the 
VIC-20 due lo its 22 column screen size, and Ihe 'P' and B' 
series because of new internal architecture. 

Each program has been fitted with about 6K of ''overhead^' 
subroutines. Pre-program code will test what machine the 
program is belni^ run on. That means each program can be 
loaded into either the 2001 (BASIC 2.0). 4032, 8032, 8096, 
SuperPET (in CBM mode), or even the new Commodore 64, 
and will run without modificalion. Standard keyttoard input 
and screen formatting routines have also been included to 
give the software a more uniform appearance. 

Of course memory size will still restrict the use of larger 
programs, but most machines in Canadian schools have 
32K. 80 column machines will require a screen modification 
program that converts to 40 column output. This will be 
available on a ulilities disk along with copies of the "over- 
head" modules used in the standardization process. Other 



utilities will also be included to make programming life 
easier. 

The complete library should be available from school 
boards across Canada by October 1 st or earlier. For S 1 you 
get a diskette, about 20 programs, and a Manager file 
containing details of the programs. A master catalogue disk 
can also be obtained for descriptions on the entire collcc- 
lion, an estimated 50 to 70 diskettes! 

Commodore will be distributing the diskettes to their deal- 
ers sometime around November Isl, but no procedure 
details have been released. Possibly they'll be free for 
schools supplying their own diskettes? 



Three New Commodore Info Source* 

STRICTLY COMIvlODORE is a bi-monthly, software-o- 
riented publication that is entirely devoted to VIC-20, PET. 
CBM, and SuperPET owners. Product reviews, program- 
ming tips, and other factual material is covered. Yearly 
subscriptions are $20 in Canada, $18 US. dollars for state- 
side subscribers, and $25 US. dollars in all other countries: 
Sample issues are $2 in Canada and the U.S.. S3 elsewhere. 
Write to: 



Tba TranMictor 



SapfmborfOctobT 1 9B2 



Stricliy Commodore Inc. 

SubsLTiption Depl. 

47 Coachwood Place N,W. 

Calgary, Alberta 

TSHlEl 

Strictly Commodore Inc. is also planning another publica- 
tion, SUPER 64 witl cover material on the new Commodore 
64 and MAX. exclusively. Rates: $15 US. dollars in Canada 
and the U.S.. $20 US. elswhere. Samples: $4 Canada and 
U.S.T S5 for other countries, S,C. Inc. asks thai all cheque^i 
and m/o's be in U.S. dollars only. 

Editor Note : So far I've only seen Volume I /Issue 1 of 
STRICTLY COMMODORE- It came on 8 1/2 by I Ts folded 
and stapled at the centre for 36, 5 1/2 by 8 1/2 inch pages. 
The programs were documented nicely with descriptions of 
important variables and conversions for other machines, 
however. Iheir reproduction quality can only gel belter. 
Most of the mag is geared for beginners, which Ihey openly 
admit, but their intentions are admirable with good growth 
potential. 



PET PAPER and Midnight Merger 

The PAPER (originally The PET PAPER), one of ihe oldest 
indepeEidenI publications supporting Commodore com- 
puters is merging with another independent resource for 
Commodore users, ihe Midnight Software Gazette, begin- 
ning with the Oclober, 1982 issue. 

To celebrate the merger, a contest is underway to rename 
the merged magazines. The person suggesting the best 
name will receive a free VlC-20 courtesy of Computer 
Country ofSpringfield.lL Judging will be by the editors, and 
in case of ties, by the readers of Ihe combined magazine. 
Entries must be received by November Isl at the address 
below. 

During the past two years. Midnile has become a widely 
respected resource in 41 slates and 1 1 countries. Specializ- 
ing in brief independent reviews of products for Commo- 
dore computers, it has received praise from nearly every 
magazine supporting CBM products. Us current issue is a 
'M)0^ page SIO book, wilh advance commillmenls for 
i 0.000 copies. 

The PAPER has traditionally been a strong source of articles 
and tutorials for users of CBM equipment, with excellent 
series nn such topics as first steps in machine language, as 
well as extended reviews of important products. 



Subscriptions to the combined magazine are $20 US, or $25 
CDN in North America for 6 bi-monthly issues. Overseas 
subscriptions are $45 US. Each issue will be professionally 
printed and securely shipped in envelopes via first class 
mail. 

Send subscriptions to: 

Midnite Software Gazette 

635 Maple 

Mt. Zion, IL 

62549 

217 864 5320 



Commander 

The first issue of Commander is slated for December Isl. 
1982- Like The Transactor, it will be devoted to information 
on Commodore products only. Commander will be pub- 
lished monthly by Micro Systems Specialties. Tacoma, 
Washington. 

Subscriptions are $22 in the U.S.A., $26 in Canada and 
Mexico, all other countries $37 surface or $54 air mail (1 
assume all figures are in US. dollars}- Send all orders to: 

Commander 

P.O. Box 98827 

Tacoma, Washington 

98498 

206 565 6818 

Or call toll free in the U.S., (except WA, HI & AK) 
1 -800-426-1830 with your Visa, Master Card or American 
Rxpress number. Subscribe before the premier issue and 
receive a $4 discount- 
Editor's Note : Since a Commander has not yet been re- 
leased, I can't give you an opinion. However, if what their 
promotional material says is true, it sounds like a very 
professional effort that should be considered. 



Commodore Computing 

This one is relatively new and worth mentioning. Without 
question, it's the best from the U.K. Commodore Comput- 
ing was originally Commodore U.K.'s club newsletter 
(known to some as '^CPUCN'^ ). Commodore sold publica- 
tion rights to Nick Hampsliire publicalions, and fVte 
Gerrard, also a Commodore vet, is producing some super 
work. I've seen two excellent issues so far. 



ThBTrantoclor 
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Subscripiion rates for 10 issues are 12,5 British pounds in 
the U.K. and 15 pounds overseas. You'll have to work thai 
out in Canadian or U.S. dollars before sending. Air mail 
rales are available on request. Write or subscribe using; 

Commodore Computing 
SubscripJion Manager 
MAGSUB 
Oak Ji eld House 
Perry mount Road 
Haywarris Heath 
Sussex RH16 3DH 



VIC Computing 



The only publication 1 know of devoted solely to the VlC-20. 
I imagine as Commodore brings oul new home entries 
theyll cover fhese loo, VIC Computing is not related ro the 
above mentioned pubhcation, but 1 believe they are cloi^ely 
associated with (ii nol owned by) Microcomputer Printout, a 
more general computing tabloid. 



Annual subscriptions 6 pounds in the U,K., 9 in Europe and 
16 overseas. Once again you'll have to re-calculate for 
Canadian and U.S. dollars. Their address: 

VIC Computing 
Z9-A\ North Road 
London, England 
N7.9DP 



Toronto Typesetter Connects To PET/CBMs 

AUic Typeselling of Toronto have been in the typesetting 
business since 1973. Over the years, co-founder Nate Red- 
mon has been experimenting with his Quadex 500 typeset- 
ting system and several microcomputers including Apple, 
Radio Shack, and just recently, Commodore- Data generated 
by the computer can be sent directly into the Quadex from 
end system. From there it's sent to the typesetting machine- 
Result: the infinite quality line printer! 

The connection is a standard RS-232 line at 9600 baud. 
Using a SuperPET with Raymond Li's RS-232 terminal 
program, sequential files generated by WordPro tor every 
article you see in The Transactor were Iransfered to the 
typesetter. 



appear in Upper/Lower case mode. The major advantage, 
however, is the possibihty of keyboatding error is elimi- 
nated. 

Once in the editor, a spell checking program with over 
200,000 words checks your text in seconds. 

With all of the inherent capabilities, plus some custom 
programs written by Mr. Redmon lor the Quadex, Artie 
offers a text processing service that's unparalleled by 
"off-the-line' typesetting equipmenl. If there's enough de- 
mand, Nate may consider installing a modem so that (ext 
can be sent remotely- 

For more information contact: 

Nate Redmon 
Attic Typesetting Ltd. 
54 53 Yonge Street 
Willowdale, Onlario 
41 G 221 8495 



Leadinff Edge Introduces Luw-Co»l 12" Monitor. 

The newest addition to the Leading Rdge Products' line of 
BMC monitors is the BM-12EN; a hi-res. non-glare, green 
screen 12" model in high demand Jot use by certain market 
segments such as professional, educational and specialized 
small businesses. 

A 20 MHz bandwith gives the BM-12EN a sharper, more 
precise image, and the non-glare screen reduces eye strain 
substantially over prolonged periods. The unit comes with a 
one year repair/ re placement warranty at a dealer cost of 
$99.00 U.S. 

Leading Edge is the exclusive U.S. distributor of the 
BM-12EN, as well as the ^'Mean Green^' BM-12A11, and the 
color composite BM-1400CL All monitors are competi- 
tively priced and dealer inquiries are welcome. Contact: 

Leading Edge Products 
225 Turnpike Street 
Canton, MA. 
02021 



Toll Uee 

In MA & Can. 

Telex 



1 800 343 6833 
1 617S28 8150 
&51-624 



Even program listings can be typeset. Programs are simply On August 10, 1932, Leading Edge announced a one year, 
LlSTed to disk and sent like any other SEQ file Cur^r end-userpartsand laborwarranJyfor iheircompletelineof 
control characters cdn also be typeset, but only as they C.Itoh Prowriters, F-10 Starwriters, and Printmasters. Con- 



Th« Tron^actor 



S^pfambaWOetobar Il>81 



'id Vuu r I K'urt.'?(t LL'ddi ni\ bdc^ d^^l^r iix df Liikv 



sutSi ijji <JFnanrji7?? ;inr1 Diitbly. 



,j 



l.L'^JiJi^t^Ui|cHrit>du^:t'i is Ih? l-^rjt^^ir nidi k^-^iT \j: nnai:x:ij]iL- 
jjuler piixj^jrcs in \hif I...S. <Mi;piu>iiii|ov"CT l.j'i^fMitjplf in IC^ 



Semole Swllcbcd l»lBtor« by l^lectronlc ^peckdlkfls 

Kf^mol^Lv Swilcht<l Isululofs disnijunaxi by HLwrronif Spe- 
i.kihi^s arc Lht nav^'est iicWrlion 1y rhtir p^[L'rilixl bulLilor 
filtPF/sLip|>re^SOrlinL-of i]iLvr(L^rt::iL^:njntinLprndiifK Av;^i| 
uUlc on uii IsnUlor :rioi1pl\ rh^ ffnu^^e AC jxjvvcf cuBiLrcj! 
swilch ir^n I^L- inuunliij ijcar tlie equipmftnl np^f^k-r fur 
LOMvt']ii4.Nict Lin<3s.yMflm r^bif; ne^m^ss 

Mi<^rt>i:i:»n]puler ^E^pLic:Hlinfis inriiidp Ijih 1 1 :^i^r-. hu&pital, 
indiKftir^l ^n<1 pLT^onaL s-y^s^citis tuivlni^ - n*»?d rn con^i'en- 
itntlyGjrHroJpftWPr rn Ih^i^^-eraLinfe! sy U-ni f roni 4i ctntial 

ioraiion 

JrAai RpinijU' SwiUliuU Itoliitor loud cajKici-y Ih 1J*7!^ v^.'irt^: 
iriaximiirn wllh ftarh Knckrt i,?LpAh|L' U Ji^riJlinij ^ 1 KW 
lu^. Renin^ie swn:hin|3 avajjihifl nn nwdpjf: r^ntring ff^ni 
^iristlt?-ril1fli«j modftis 1o ^^u5d-fillt:rt'iJ ][Liii|]ium ;rKxJcl:^. 



VJC: nwnftr*. nnv; h;iv^ e5:Sv ^1L■c:L-:.y tu Ittt^ [>crLpfn^r.^ls nf M'. 
sfrrK. InLJuJin^ Corn][LoJQrc. H E^'ittl-P^c-k^rd. ^nij uiIkt^ 
lttt;.dF^if'f>ownf fK will lir-d lh<^ V|C-V-LlNK i'^:mhLn.=Hri.r>n 
an cittKiCLiv^LXjnlruJtr fori^iiL'h nnits r.^ IKKK-i^SCiLoscofX^ 
and ^-pHTrum analysers. 

Just rflf pnrlv, V- 1 .1 N K fi^r cr,u Coi i irritxJu fl^ CH was perfK^rRi , 
Du<^ [u lIk" st^phistiLZitcd n^luri^ cJ Ih^ tsL rhi^ ynil ty rnutli 
ridi^Ttrifln il"^prpder<-s^>>f t"lnL'r.ur:Nttkjrd(:t^€^pr\'thinR! 
On on<: yJdL- ;y u uarlrLds^o sint rr>n:iK'rnr. nn cJic ollit^r an 
IQIK cflrd-pdge -^unnKluT, III IxfrVciiEi i*- 3 AK ROM rhal 
l:L>lH^llllt cJju \\L\l\L raulines and alsc* ^ftiv^^ yuu BASIC -I.Ll 
^'ommar.ds amj ti nutliiiTL' I Liiii|u lijj.k; mn]ii1or Na n^ftd br 
RAM ijst^nay::on Ihison-r; Ihf^ f^-i h^M ^11 il l-hh iMridLi-. 
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Two New Assemblers From 
French Silk Smoothware 

The Assembler for the Commodore VIC-20 is a machine 
language development system consisting of three programs: 
The Editor. The Assembler and ITie Loader, The package 
will function on all VIC configurations, including the 5K 
cassette- based sysfem. The user-friendly design allows 
easy creation of machine language prc^rams and BASIC- 
-callable_subroulines. A powerful two-pass symbolic as- 
sembler interprets algebraic expressions, decimal, hex, and 
literal data. It accepts programs from the source library 
created by The Editor and it creates object modules for use 
by The Loader The ability to load and link multiple mod- 
ules gives the VIC owner the opportunity to develope very 
large and powerful machine language programs (eg. a 4K 
program on the 3583 byte VIC). The user's manual is 
professionally writlen, clear and complete. The package is 
available on cassette for $24.95 plus $1.00 postage & han- 
dling, or on diskette for $29,95 plus $1 ,00 p&h. 

Develope-C'l for the Commodore 64 is a machine language 
development system consishng of an editor/assembler and 
a loader- With the editor/assembler, machine language 
programs may be created, modified, saved to the source 
library and assembled. Load modules are created for input 
by the loader and listings are produced coiiiaii»irig source 
and generated machine language in either hex or decimal. 
This powerful two-pass symbolic assembler interprets alge- 
braic expressions and a variety of data formats. Completely 
compatible with The Assembler for the VlC-20, Deve- 
lopG-64 can accept statements up to 78 characters in Jenglh 
and labels Up to 73 characters long. This product is ''hu- 
man-engineered" for maximum user- friendliness. The 
manual is professionally written, dear and complete. Deve- 
tope-64 is available on cassette ior $34.95 plus $ 1 .00 p&h, 
or on diskette for $39,95 plus $1,00 p&h. 

Need more? Contact: 

French Silk Smoothware 

PO. Box 207 

Cannon Falls. Minnesota 

55009 

507 263 4821 



Toronto PET Users Group Now 
2000 Members Strong! 

TPUG started in 1978 with a mere 30 members. Chris 
Bennett, club secretary, informs me that this month they 
passed the 2000 member mark. They have regular monthly 



meetings at two locations in Toronto, special interest 
groups, their own newsletter (The TORPET), and a disk 
library with almost 50 diskettes! 

Memberships are worth every nickel! They get you The 
TORPET and full access to the library. 



Canadian Associate Members 
U.S- Associate Members 

Overseas Associate Members 
Canadian Regular Members 
Canadian Student Members 



$20 

$30 US. 
$30 US, 
$30 
$20 



For more information contact (after business hours): 

Chris Bennett 

381 La\^Tence Ave West 

Toronto, Ontario 

M5M 1B9 

416 782 9252 

Or use your computer to call the TPUG Bulletin Board at 41 6 
223 2625. (7 PM- to 9 AM., Mon. through Sat. - All day Sun,) 
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Bits and Pieces 



Got some interesting bit of info yoii'dlike to share?... Q POKE, 
a screen dazzler, o bug, or some other anomaly? Send it inf 
We 'II ge glad to print it! Ed. 



Optical Illusion 

This neat Utile machine language program was written by 
Dave Berezowski at Commodore Canada. It doesn't do very 
much excepi create a rather interesting looking screen. The 
program will work on 40 or 80 column machines but the 80 
column seemed to be the most impressive. 



033c 


Idx 


*$00 




033e 


inc 


$8000, X 


;vic users must subst. 


0341 


inx 




screen address 


0342 


bne 


$fa 




0344 


inc 


$033f 




0347 


imp 


$e455 


;for BASIC 4,0 users 


0347 


imp 


$e62e 


;for BASIC 2.0 users 


0347 


imp 


Seabf 


;for VIC-20 users 



As you can see. the routine is interrupt driven which means 
you'll need lo POKE the interrupt vector to gel it going. 

pokel44. 60: poke 145,3 



Nolice that the program is self modifying, a practice that is 
OK for small programs but should be avoided like the 
plague in larger ones. Self-modifying software is the worst 
for debugging and finding out the hard way is not fun. 

Vic users could also get this going without too much difH- 
cuily {maybe even with colour?}. Just substitute the PET/ 
CBM screen start address ($8000 in the second line) with the 
slan address of the screen in your particular Vic. one of two 
possibilities, $1EOO normally or $1000 with some memory 
expansion units. Toeng^e \i. > . 

poke 788, 60 : poke 789. 3 

For BASIC 4.0 users, just type in this loader. Others will 
need lo change just the last two DATA elements and the 
interrupt vector POKEs. 

10 lor j = 828 to 841 : read x : poke j, x: next 
20 data 162. 0,254. 0.128,232,208,250 
30 data 238. 63, 3, 76. 85. 228 



After servicing this code, the normal interrupt routines are 
executed which means you'll still see the cursor. You can 
even edit {and RUN) BASIC while this is running, just don't 
try to use the cassette buffer that it lives in or whammo! Try 
moving the cursor around the "affected area". 



One last note. . .don't try lo include the interrupt vector 
POKEs in the above program. Chances are your machine 
Will crash because before both POKEs get executed, an 
interrupt occurs somewhere in-between. 
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Selective IMrectory 

Ever been searching through your diskettes for a program 

and found yourself sifliEig through SEQ and REL filenames 
that just seem to get in the way? Or how 'tx)ut the opposi- 
te. . .when you*re looking for an SEQ or REL filename that's 
lost in diskettes iuti of programs. Well. here's a quick way 
around it. 

LOAD'$0:' = PRG',8 

When finished, LIST will display all PRG files from the 
directory. It would stand to reason that matching type 
filenames would appear for both directories if the drive 
number were omitted, but such is not the case. If you leave 
out the drive number the disk only returns filenames from 
the last drive used. 

Mysteriously, DUDAD won't work the same way. You must 
use the LOAD command followed by '.8'. Any file type can 
be selected though. Merely substitute PRG for SEQ. REL or 
USR. 

Another variation. . .subtitute the • for filename patterns. 
This has been discussed before, but now you can look for 
filenames that match a pattern and are also of a particular 

type.,. 

L0AD"$1;B*=SEQ',8 

. . .would load a directory of all sequential files on drive J 
that start with 'B'. 



A Most WelciH&e Error Message? 

Never thought you'd see the day an error message would be 

pleasant, did you? Well today is the day! Just turn on your 

machine, hit HOME and RETURN. Too bad you can only gel 
it when the machine is empty! 



Quick File Reader 

This three-liner will read just about any SEQ file> It's not 

very sophisticated but when you just want to "take a boo" at 
a file, it can be typed in quickly and isn't too hard to 
memorize. The RVS will help to spot any trailing spaces. 

10 dopen*8, "some file' 

20 inpiJt'8, a$ : ? 'H' a$ : if si = 64 then dclose : end 

30 goto 20 



For REL files, simply change the IF statement in line 20 to: 



ifst = 64 and ds=50 then. .. 



Tlie Dreaded Illegal Quantity 

Sometimes you want to read files one byte at a time. A 
routine much like the one above might be used, only the 
INPUT* would be replaced by a GET*. There's just one 
minor gotcha. It seems that when a byte value of zero is 
retrieved by GET*, the string variable slated to receive it is 
set to a null string, not CHR${0). 

The most common occurence of byte-by-byte reading is 
with PRG files from disk. Program files contain lots of these 
zeroes, at least one per line of BASIC (end-of-line markers). 
Usually a program to read the PRG file is se* up like this: 



10 
20 
30 



open 8, 8, 8, "some prg file.p.r" 
get*8, a$ : print a$, asc(a$) : if st 
goto 20 



= 64 then close 8 : end 



The prf^Iem is that when a zero is read into A$, the ASC( 
function cannot cope will a null string and bombs out with 
?iLLEGAL QUANTITY ERROR. The solution? You could add 
an extra IF statement after the GET*, for example: 

ifa$="thena$ = chr$(0) 

. . .but that would mean an extra line for the PRINT state- 
ment and the following IF. - , rather clums>'. Keep things tidy 
with: 

print a$, asc (a$ + chr$(0)) 

The ASC( function returns the ASCII value of the first 
character of A$. If A$ starts with a valid character, then 
adding CHR$(0) will make no difference- U not, then 
CHR${0} will be added to the null string and a "C will be 
printed rather than the dreaded illegal quantity error. 



The Hy^terioiu Extra Records 

Those of you familiar with ttie Relative Record system will 
know that the end of a relative file is flagged by the 
7REC0RD NOT PRESENT error. DS = 50. However, the last 
record used for data is not necessarily the last record of the 
file. 

As rekaCive files gel bigger, the DOS formats additional 
sectors by filling them with "empty records". An empty 
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record starts wUh a CHR$(255) followed by CHR$(0)'s lo the 
end of the record which is delermined by the record length. 
This formalUng process occurs when data is written to a 
record that will require more disk space than has been 
allocated lo the file so far- 
Each 256 byte sector can contain 254 byles of data (the other 
2 are used by the DOS)- Let's take an example record length 
of 127, thus 2 records fit exactly into 1 sector. Imagine thai 2 
complete records have already been written to Ihe file. Upon 
wrirfng a Third record, the DOS must format another sector. 
Two empty records are written, but the first will be replaced 
by the data of our third record. Closing the file causes our 
third record and the one empty record to be slored on the 
diskette. 

Re-opening the file is no problem, but h^w do we find the 
next available space for writing a new re r,rd? Athough our 
fourth record is empty, a RECORD^If, 4 ' ill NOT produce a 
?RECORD NOT PRESENT error and the CHR$(255) could 
successfully be retrieved and mistaken for valid informa- 
tion. Therefore, we must tesi the first character of the record 
for CHR${255). An INPUT* of this record will result in a 
string of length 1. so a combination of the two conditions 
might be appropriate. However, (NPUT^ing live records of 
length greater than 80 will produce 7STRING TOO LONG 
error, so GET* must be used in combination with an ST test: 

1000 rem ••• find next available record **• 

1010 record* (If), (rn) :rem rn = record number 

1020 get*», a$ :rem get 1st char 

1030 if ds-50 then return 

1 040 if aS = chr$(255) and si = 64 then return 

1050 rn = rn-»-l :goto 1010 

This subroutine will search forward from wherever you set 
RN initially. It stops when either a ?RECORD NOT PRESENT 
occurs or when an empty record is found. For larger files, 
you migtit consider starting at the end of the file an work 
backwards, but you'll need to find the first live record and 
then move the record pointer one forward. 

In summar>% relying on RECORD NOT PRESENT is not 
good enough. Although it will insure an empty record every 
time, it will eventually leave you with wasted disk space. 
Often the first record of the file is used to store a "greatest 
record number used" variable which is updated on closing 
and read back on opening. Although this is probably the 
cleanest approach, it will only return new record numbers. 
Any records that have been deleted by writing a single 
CHR$(255) must be found with a subroutine like above. 
Possibly a combination of both these techniques will pro- 
duce a more efficient filing system. 
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The WordPro 
Book Of Tricks 



The WordPro Book Of Tricks is a regular column by Com- 
modore Canada's wordprocessing consultant. Donna M. 
Green. 

Quick'LOAD - For "Plus" Versions Of WordPro 

As you know it is a simple, quick matter to turn your 
Commodore computer into a word processor, once the chip 
has been inserted inside the computer. 

After pressing ^ift + Run/Stop which loads the program - 
several questions regarding the printer and device numbers 
appear on the screen. To skip over these questions, simply 
press: 

CONTROL — and the Status Une will appear! 

(Certain default values will be sdected - "S" lor NEC 
Spinwriter, ''1 16" lines available - or whatever the maxi- 
mum is on your WordPro version. "4" for Printer Device 
Number, "8" for Disk Drive Device Number-) 

This will not only save time when starting up, but if you 
have a Spinwriter printer, youMl also be ready to print! 
Inputting, editing, and disk use is now possible; however, it 
is important to be aware that if you are intending to print 
using any other printer at this time, you will have to do 
another quick reset to select the proper printer. 

What if you decide to print on a CBM printer after this quick 



Donna Green 
Commodore Canada 



start up? You can easily reset the system wiih the following 
command: 

CONTROL then Shift + Run/Stop 

You wili then be asked the usual questions; for example, 
when it asks what printer, select "C" for CBM. U there is no 
change to the remaining questions, you may "return" 
through them umil the comrol line is reach^. 

Using this quick reset, ytni can also change the number of 
lines in main text (from the maximum - which is the default 
value), to a smaller number if you wish. 

If the '"number of tines" is the only item Jo be changed, 
simply type in the new number, then press "CONTROL" to 
bypass the remaining questions. 



Exit To BASIC (For "PLUS" Versions) 

CONTROL + SHIFT + Q{QUIT) 

This command will take you out of WordPro and back to 
BASIC without turning off your computer. 
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The Backslash Key - "\" 

V 

h Make Use or ''Shifted Mode'' - Rather than the 
"Shift Lock" Key 

To enler "^ted Mode" - press the ''\" key. 

This will highlight the '"S" on the status line and all letters 
will be lyped as capitals - but numbers will stay as numbers. 
Therefore, to type a dollar sign for example, use the SHIFT 
key and number four To exit from "Shifted Mode" press "V 
again. 

A Note on the Shift Lock Key : If the ''shift lock" key is used 
for capitals or upper case characters, spaces will appear as 
solid lines on the screen; ie: 

This is__an__examp 'e. 

These are actually "required spaces" used to keep items 
such as dates or names all joined together and lo treat them 
as one word; this way they won't be split at the end of a line. 
When more characters than a line will hold are typed in this 
manner a "Format Error" message could result because the 
system cannot find a "space" to use as a line ending break 
point. For this reason it is better to use the "shifted mode" at 
all times^ rather than the "shift lock" key. 

2. Turn on the Beeper (Plus versions) 

CONTROL + \ (same turns beeper ofl) 

The Status Line will Indicate either "Sound On" or '*Sound 
Off". The beeper will sound when you switch text areas, 
recall, memorize, update, or finish printing a document. 

3. Shortcut for RecalUng - Using Backslash Key *'\" 

You are also probably aware of the command to recall when 
the directory is on the screen. Before giving the command, 
move the cursor to the "file name" and while pointing to it 
with the cursor either in the space preceding, or on the first 
character ol the name - press: 

SHIFT + CLR/HOMR 4 R(RKCALL) + \ + RETURN 

4. Make lise of Comment Lines on Every Page for 
Faster Recalling 

Make use of a "comment line" as the first line of your 
document (checkmark cm colon + name of file) and keep a 
copy of the file name here. Then, when updating or Memo- 
rizing a document, go to this comment line and have the 



cursor on the first character of the file name. Press \, and the 
file name will appear on the status line, rather than retyping 
the name. 

5. Quick Recall of FUe with Sunilar Name 

To take advantage of the '\" shortoiC (as in *3 above) 
without bringing fhe directory to the screen, recall a docu- 
ment with a similar name the following way: 

Cursor to the first character of the file name (on line 1 in the 
"comment" section), then press: 

SHIFT -H CLR/HOME + RiRECALL) + \ 
INST/DEL KEY + NEW N0> + RETURN 

Example: If "report page 3" was the name indicated in the 
''comment line", and "report page 1" was required, recall 
using 'X as above then press INST/DEL to delete the "3" 
then type "1" and return, 

[n a linked document, the "nx" command which is always 
the bottom line, can be used just like the "cm'' command 
(which is usually the first line). The cursor can point to this 
name, and the backslash key can then be used to display the 
"file name" for recalling purposes. 



FOR OTHER "QUICK RECALL" TIPS. . . 

L Quick Recali/ScroU Through Linked Files 

Ttiis IS a great time saver and a very helpful aid when 
working with long linked documents: 

SHIFT + CLR/HOME + R + CLR/HOME + RETURN 

When the CLR/HOME key is pressed the second time in 
this command, WordPro automatically searches out the 
"nx" command and displays the file name contained there 
on the Status Line, 

2. WUd Card for Recallhig - The Asterisk (•) 

Perhaps you have forgotten exactly how a "file name" was 
spelled on the directory but you know it started with ''st". To 
recall the first document on the disk that begins with "sl'\ 
give the following command: 

SHIFT + CLR/HOME + R(RECALL) + st* + RETURN 

This will find the first document that begins with "st" and 
recall it lo the screen. 
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3, Recall Both Directories With One Command 

CONTROL + 2 + RETURN 

The status line will prompt "Selective: ". By typing "2" at 

this time it will bring both directories to the screen. Disk 
Drive *1 first, and below it Disk Drive *0. Obviously, a disk 
must be in both drives for this to work. (This will therefore 
not work on the 2031 single disk drive,) 

4. Recall Selectively from Directory 

If there are disks in both Disk Drives "0" and r\ (he 
following command can be given to quickly view all the files 
that b^in with given characters: 

CONTROL + 2 + si' + RETURN 

This will bring to the screen a lining of only the files that 
begin with "sf* from both Drive *1 and Drive *0. To recall a 
specific file, move cursor to file name and recall using the 
backslash key as described above. 



Quick Cursor Movements 

I. ScrY>11 Up & Down Quickly 

As you already know, if you wisli to scroll the cursor quickly 
to the bottom of the screen, press: 

CONTROL + CURSOR ARROW DOWN 

To quickly scroll back up the screen, press either HOME/ 
HOME, or 

CONTROL + CURSOR ARROW UP 



2. To Jump to Bottom of Tevt 

However, there is another way to reach the bottom of your 
document without scrolling through the text on the screen, 
and possibly going too far - press: 

CONTROL + TAB KEY (OR BACK ARROW, OR UP 

ARROW) 

The cursor will quickly jump down to the last line d typing 
in your document, and stop at column 80. 



3. Cursor Forward - To Resume Inputting 

To move the cursor forward from this point (column 80) - 

press; 

CURSOR RIGHT KEY 

This will move the cursor forward one position {past column 
80) to "column one" on Ihe line below - exactly where you 
would probably want to continue typing! 

Also, when a tab is set (control + s) at column 80 — by 
pressing the TAB key, the cursor can quickly be moved to 
the right side of the screen. 

Using these faster ways of moving the cursor around the 
screen wll be very helpful in editing text and making more 
efficient use of the system. 

4, Return Carriage Wlttiout Deleting Rest of Line 

When the cursor is in the middle of a sentence, to return to 
the beginning of the line below without erasing information 
by accident - press: 

SHIFT + RETURN 

To quickly move the cursor up one line to column 80 or the 
end of the preceding line - press; 

SHIFT + CURSOR ARROW LEFT 

Of course, since the cursor cannot go left of column 1, it will 
move instead to column 80 of the line abovel 



That's all for now. More next issue! 
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The MANAGER Column 



John Stoveken 
Milton, Ont. 



The Manager Column is a regular feature of The Transactor. 
If you have any tips for other Manager users, send them in 
and tve 11 include them in the next issue. Ed. 

The MANAGER software ^slem has become one of the 
more popular database packages /or the 80 column Commo- 
dore computers. Now for some programmers goodies, . . 

The following listings iJluslrale some of the BASIC exten- 
sions that are contained in ttie MANAGER machme code. 

String Input 

x$ = '"' :\i, n,x$ :x$ = x$ 

This routine inputs a string into the called variable from 
logical file number ''n". The input routine will bring in all 
ascii characters and terminate only on a carriage return 
(ascii 1 3), The x$ = x$ is necessary to transfer the string from 
the reserved buffer into BASIC space. Maximum string 
length is 255, 

Screen Dump 

open 4, 4 : \d : close 4 

This routine performs a screen dump of the current contents 
of the screen to the printer. It will perform a PET-ASCII 
conversion depending on the contents of memorv address 
22527; ie. poke2a527, 14 = ASCII, poke22527. 12 = PET. 



String Insert 

aS-^aaa" : b$=M234567890'' : \m, a$.bS, n 

This routine inserts the string a$ into bS starting at position 
n. For example, if n = 3 the result of this operation would 
result with: 



a$ - "aaa" 

b$ = ''12aaa67890" 

Mode Toggle 



\a 



Simply toggles the PET from upper-lower case to uppercase- 
-graphics mode, or vice versa. 

Printer Output 

\p, a$ 

Prints a string to l^^ical file 4 (which is OPENed by The 
MANAGER on device 4) performing Ihe same PET-ASCll 
conversion as in the \<1 command (dependent of contenls of 
location 22527). 
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Toggle Auto-Repeat/STOP Key 



V 



Simply (oggles Ihe auto-repeai, disabled STOP key. 

Program Load 

\l. ■'program" 

This command wll load a program from disk lo memoryn If 
the command \I; 'name' is u^ then a machine code 
module (or ,scr file) can be loaded into memory without 
mucking up the BASIC pointers. 

Program Load & Execute 

\x. "name" 

This command will load and execute a BASIC program from 
disk. Its counterpart, \x; "name' will load a machine code 
module and 'sys' to the start address of that module. 

These routines may be used in your own software if it is 
called from "The MANAGER" packc^e. The simple route to 
call a program from The MANAGER is to modify the 
"MENU" program by adding these two lines. 

146 print spctlSj'zee new program name' 
166 if a$='"Z' then \x/new program" 

MANAGER files may be viewed with a very simple program, 
that must be called from the MANAGER. 

ba= 18432 : rem base address (or machine code 
10 print 'Input file name'; :l=16:gosub 1000 
20 na$ ^ x$ 

30 print "input drive"; :l = l : gosub iOOO 
40 d = val (x$) 

45 rem *** Open and read the file *** 
50dopen''l.{na$),d(d) 
60a$=":\iJ.a$:a$ = a$ , 

61 rem inputs a string into the specified variable (aS) from 
the logical file specified (1) 

70 if a$ = chr${255) then dclose : ^op 

71 rem character 255 indicates the end of a MANAGER 

relative file 
80 print a$i goto 50 
IOOO rem *•• Input a string loop •*' 

lOlOx = peek(198):y - peek(216) 

I020x$=":sysba+57,y.xJ 

1021 rem inputs a string of length I at the row and column 

specified by y and x into the variable x$ 
1030 return 



if we wished to view a MANAGER file in ^rted order, we 
must first scan the pointer file associated with the main file 
and use it to give us the records in the CMrect order. To do 
this> we will change lines 50 to 90 to permit this. 

50dopen*l.(na$),d{d) 

60 np$ = na$ + "-ptr" : dopen*2. (np$). d{d} 

70a$=":\i,2,a$:a$-a$ 

72 rem this inputs a record from the pointer file in the 

"sorted" sequence 
80sx = st : rem store status of ptrfile 

The record position in the main file is "stored" in the last 
two bytes of the pointer (or .ind file), and can be decoded 
with this routine: 

90nn-(asc(right$(a$.2))-i-256*{asc<right$(a$.I))))/ 

32768+1 
100rea>rd*l,(nn) 
110x$='":\iJ,x$:x$ = x$ 
1 20 print x$ : if sx = 64 then dclose : stop 
1 30 goto 70 



More MANAGER Notes 

Three sub-programs of The MANAGER system have the 
option of using '^search criteria" to select records from a file. 
The three are: Global Update. Produce Sub-Files, and Re- 
port Generate, 

Those of you that use The MANAGER will know that ALL 
conditions specified in the search criteria must be met 
before a record will be selected, Inolbeiwords, condition *1 
must be true, AND condition "2 must l>e true. AND condi- 
tion *3. . . through to condition *n. Even i^ one fails, the 
record is discarded and toting begins on the next record. 

But suppose we'd like to select a record if only one of the 
search criteria were true. That is, condition *! must be true, 
OR condition *2 must be true, OR *3. elc. For example, to 
produce a sub-file containing records that have "Ottawa" or 
'Toronto*" in the City field would be impossible using The 
MANAGER as is. For this we need one simple modification. 

The program you modify will depend on which function you 
plan fo use it with. For Global Update the program name is 
"global". Produce Sub-Files is "finish" and Report Generate 
is 'generate2V Fortunately the line number is the same in all 
cases. Umd the appropriate program using a DLOAD com- 
mand and LIST line 2370. You should see something like: 

2370 ff=ff+fl: next :n = l: if ff<nf then (1 = :ff=0 
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The number of fields to be tested is represented by the 
variable nt The variable FF is a flag accumulator. Variable 
FL is set to ! if a condition is true, and if false. Therefore FF 
must be equal to NF for all conditions to be true. If FF is less 
than NR FL and FF are set to zero which tells another part of 
the program to continue with the next record. To get the 
program to accept "any condition true", change line 2370 to: 

2370 ff=ff+fl; next :fl = l : if ff = then fl=0 : ff=0 

A one byte change! Now the program will only skip to the 
next record if NONE of the conditions are met. Thus the 
search criteria function has been changed from and ANDing 
operation to an ORing operation. 

You could lake this one step further and replace the IF 

statement to a GOSUB. The subroutine might test for certain 
pairs of conditions to be true. Just set F' . and FF appropri- 
ately before exiting. 

This "new" program must be SAVEd under the same name 
so thai Ihe MANAGER menu program can load it (remem- 
ber, this program can't be run unless the machine language 
subroutines are set up first). Rename the original version 
with: 

rename dO/globai" to''global.and'' 

Alternately, it wouldn't be difficult to modify the menu 
program to call either version by choice. 



Larger MANAGER Data Files 

As you a!! know, REL files on the Commodore 8050 are 
limited to a maximum size of 180K. This is why The 
MANAGER can no! fill an 8050 disk with just one file. But if 
you get the new DOS for the 8050. (available now or soon 
from CBM) the restriction is lifted. The same holds true for 
the new 8250 and the 9060/9090 hard disks. 

To allow for larger files, two programs mnsJ be slightly 
modified. Logically, they are the Create option (filename 
create" ) and the Manipulate Files option (filename 
fileman" ), Each program needs only one line changed. 
The lines are: 

"create" : line 3070 
"fiiemanMine 13070 

LIST the appropriate line and simply place a REM statement 
at the beginning. You could delete the line completely, but 
this way, if you ever want the line back again for use with 



El 



El 



the 8050, just remove the REM. Now DSAVE it back to the 
disk using replace, ^: 

dsave^^creale' 
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Disk Un-Assembler 



You've all heard of a ^disassembler"- , , a utility for display- 
ing machine code programs. But disassemblers are usually 
limited to just that. ie. display only. You can list the code, 

follow it around, and with some disassemblers like the one 
in Supermon, even make minor changes. But inserting code 
and major mods can be an awkward and tedious task. 

Unless you have source code. Most machine lanijuage 
programs are made from source code. . , a file, generated by 
a programmer {using some sort of editor), that contains the 
start address of the program followed by variable defini- 
tions, machine language intructions, word and byte t^les, 
plus everything else that goes into producing a chunk of 
machine code. An assembler is then used to convert source 
code into a machine language program. However, this is 
usually all you get; a file packed tightly with the hex 
instruction codes. Often the source is not made available by 
the programmer, and although a disassembler will undo the 
program into an intelligible listing, it can not reverse the 
process back to source code. For this we need an "Un-As* 
sembler". 

Small machine language programs can be *'POKEd in*' or 
hand-assembled without too much (rouble. But larger pro- 
grams usually require the aid of an assembler, or in most 
cases, a symbolic assemblefn Symbolic assemblers allow the 
use of labels in source code. Labels can be any combination 
of letters and numbers, but must start with a letter. TheCBM 
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assembler allows a maximum of 6 characters, A label can be 
used anywhere there can be an address or an expression, 
Transtenng execution is at^ually only possible by referenc- 
ing a label. For example: 



INPUT 



JSR OPNDSK 

JSR GETCHR 

CMP *CR 

BNE INPUT 



By using labels, one can write machine code without the 
need for calculating branch offsets, remembering storage 
location addresses or subroutine addresses, or the value of a 
particular character. Besides, they might all change as modi- 
fications are made, 

A disassembler won't show you labels but ralher the abso- 
lute values, JMPs and JSRs will be followed by hex ad- 
dresses, branch intructions by their actual offsets, and load, 
store, compare intructions and the like, by a hex address or 
number Although a disassembler could be used to create a 
load file for an editor, the result would be approaching 
useless. Every branch, JSR, and JMP address would have to 
be altered by hand to a labeL The same label would have to 
be inserted at the lines containing the destination instruc- 
tion. That's a lot of work. 

Enter the Un-Assembler. This one was written by Paul 
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Higgin bottom. It produces source code files compatible with 
the Commodore assembler editor. The beauty of Paurs 
program is Etial it works from disk. The program you wish to 
produce source code for does not have to be resident in 
memory which is a problem when the program lives in the 
same space as the Un-assembler Labels for branches and 
jump type instructions are the only ones generated. Other 
instructions are left alone. 

The un-assembler opens the machine language program on 
dtSk as a program file. Anolher write file is opened that will 
used to store the source Usiing. Three passes are made 
through the program file. On pass 1, the first two bytes that 
represent the load or siarl address of the program are 
retrieved. Then it runs right through the file to find the end 
of the program. This is important since only jumps and 
branches within the program itself are labeled Jumps and 
branchesoutsideof the program cannot possibly be given a 
label simply because the code at the destination does exist 
in this file. 

Pass 2 finds all the jumps and branches that transfer execu- 
tion lo some point within rhe boundaries of Ihe program. 
These entry points are '^tagged" by the Un-assembler, 



Pass 3 completes the job. The Un-assembler re-opens the 
program file and strips off (he first two bytes. At this point it 
looks in the tag table lo see if this spot is an entry point. If it 
is, a label is sent to the source code file that is a combination 
ofthel^ters"AD"followedby the actual address of the next 
instruction. Now it retrieves this byte and disassembles it. 
When it determines the mode of the instruction. 0, 1 or 2 
more byles are retrieved, If this instruction was a branch or a 
jump to some destination within the program, the Un-as- 
sembler substitutes the offset or address with a label. The 
label will be "AD'^ followed by the address of the destina- 
tion. The process continues until the entire program is 
un-assembled. Paul's program will automatically start a 
new file iMhe first gets loo large for the Commodore editor- 
There are a few peculiarities lo watch for. First, the Un-as- 
sembler will try to decode everything. Thai means even 
.byle and word tables will be treated as code. Byte tables are 
often used for things like command tables or error mes- 
sages, Usually they contain ASCII characters and although 
some ASCII values have corresponding machine codes, it's 
unlikely »hat an entire table would be disassembled into 
sensible code. What you'll probably see in the resulting 
source code file is a number of .byt directives, separated 
occasionally by some rather silly looking disassembly. This 
silliness can be changed back (o -byts, or left as is. according 
to p reference - 



Secondly, BIT instructions get spedal treatment. Often, a 
BIT instruction is used to "hide ' a I or 2 byle code. Since 
this hidden code will probably mark an entry poini, BIT 
instructions are placed on .byl lines. The Un-asserr.bler 
doesn't attempt to distinguish real BIT instructions from one 
of these ''code-hiders" so you'll have to decide whether to 
make changes to the source. 

Also watch for programs that start at the beginning of BASIC 
lext space. These will probably sran with a SYS command, 
bul the Un-assembler will still try to decode it. 

Ultimately, whatever the Un-assembler produces can be 
re-assembled (using the Commodore assembler) into ex- 
actly the same program you started with. The labels it 
generates might be substituted for more meaningful names 
and, of course, it won't comment your listing. Chances are 
you're using this program because you can't get the original 
source. Although the Un-assembler won't give you a source 
listing as complete, you sure will gel it quicker and with no 
questions asked. 
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100poice52.peek(42):poke53,peek(43)-f27:dr;pokel,peek(52):poke2,peek(53) 

llOts=pe€k(52) + peek(53)*256:fori = 634to654:reada:pokeU:next:sys639 

l!5daJal65,251,76>34,2l5. 160.0. 152. 145. 1,230, 1,208,2,230,2,166,2,16.244,96 

120h2-634:h4-5!3063:al-251 :ah = 252:cl = l :c2 = 2 : mh-256 : p = : mr= 127 : mU 128: ms=16 

121q = 0:h$='^a$=":b$=":c4 = 4:i=0:al=0:as = 0:d€ffnl(p)={p/mh-ifit{p/mh))*mh 

130as = 0:nl$ = chrS{0):a = 0:re = 0:ad=:0;deffnas(a)=({a>3i)and{a<128))+{a>l59) 

140 lf= 1000 : lc = : del fn r^x) = peek{x+ts) : dim mn$(255). md(255) 

150 print "HDisk Un- Assembler" : print''by Paul Hlgginbotlom 

754 lori = l to 149 : read a, a$, b: mn$(a)=a$ : md(a}=b : next 

790 print : input' drive, program filename ■;dr$,{$ : if dr$<0"or dx$>' rthen790 

79lopenl.8,15:print*i;r + dr$:f$ = dr$+'' + f$ 

801 input'drive, source filename" ;td$,of$ : if len(of$)>12 (hen 801 

802of$ = ld$+":''+of$+";:iftd$<'0'ortd$>"r then 802 

803 prinl*l.''i''+td$ : close I :open 2,8.0,f$ : if ds then print ds$ : dose 2 : end 

805t=ti:gosub3000:nf=2:nf$ = ofS + "l-s":p = s-cl :ss=0 

809 openX&X"®'' + nf$ +*.s,w' ; printnfS : lo =^ : if dd then print dsS : end 

810 if p = s-cl then print*3,'- = $''; : ad = s : gosub 9000 : prini'3 : primes;;" 
8151c = lc+l lificOlf then 830 

816 nf$ = of$ + mid$(str${nf),2)+",s'' : prinl*3;f : print*3;jil''nf$ 

817close3 : nf = nf+l :goto809 

830p = p+cl :gosub 2000 :mn=-q:sa=p:gosub 4000 ^prinfS,"'; 

840 if mn=36 or mn = 44 then prinl*3;;<this was a bit instrudiony : goto 845 

841ifmn$(mnK>"then850 

845 print*3^byt$";:ad-inn:gosub 9010 :print*3:golo815 

850prinl*3,mn$(mn}'"'; 

860 on md(mn)goto870,900,930,960,990J 020.1050,1080,1110.1140,1170.1200.1230 

870gosiib2000:print*3:*$";:ad = q:gosub9010:prinf3:p=p+cl :goto815 

900 print'3;a^ goto 815 

930 print'3: goto 815 

960 gosub2000:print*3;r;:ad = q:gosub 9010 :prinl*3:p = p + cl : goto 815 

990 gosub 2000 : ad = q : gosub 2000 

1000 p$='$":ad = ad + q-mh; if ad<s or ad>e then 1019 

1001 if fnrttad-s) Ihcn p$=''ad" 

1019 print'3.p$; ; gosub 9000 : print^S : p = p+c2 : golo 815 

1020 gosub 2000 : ad = q : gosub 2000 

1025 p$='$' : ad = ad + q*TTTh : if ad<sorad>ethen 1030 

1026 if fnrt(ad-s} then p$ =''ad'' 

1030 print*3.p$: : gosub 9W)0 ; print*3,\x' : p=p + c2 : golo 815 

1 050 gosub 2000 : ad = q : gosub 2000 

1051 ?$='$" ; ad = ad + q*mh ; if ad<s or ad>e then 1065 

1052 if fnnCad-s) then p$='ad'' 

1065 pnm*3,p$;: gosub 9000 :print*3,'y :p=p + c2 :goto815 

1080 gosub 2000 : prinl*3;($': : ad = q : gosub 9010 : print^srio'" 

1090p = p + cl : goto 815 

lllOgosub 2000 :print*'3:(r::ad = q: gosub 9010 :print*3,\x)' 
1120p = p + cl :goto815 

1140 gosub 2000 :print«3;r;:ad-q:gosub9010;print*3;,x' 

1150p = p+cl :goto815 

1 170 gosub 2000 : prinl^S,'?'; : ad = q : gosub 9010 : pnnt*3;y 

1180p = p+cl :goto815 

1200 gosub 2000: ad = p + q+{q>mr)»mh + c2:p$-'$": if ad<sorad>e then 1220 

1211iJfnrt(ad-s)lhenp$='ad^ 

1220 print*3,p$; : gosub 9010 : print*3 : p=p+cl : goto 815 
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1230 gosub 2000 : ad = q : gosub 2000 

1231 pri[il*3,T;:p$ = "$";ad-ad + (i»nih:ifad<sofad>ethenl240 

1232 iffnrt(ad-s)thenp£ = ''ad'' 

1240 prmt*3,pS:: gosub 9000 :prml-3,T:p = p + c2: goto 815 

2000 get*2,a$:q=asc(a$ + nlS):re!um 

3000 prinfHpassr : get*2, a$. b$ : rem get start address 

3010 s = asc(a$ + nl$) + asc(b$ + nl$)"mh :e = s 

3021 get-2,a$:e = e+l : if st-0!hen3021 

3022 gosub9600:p = s-l 

3025 p = p+l : gosub 2000 :n$ = mn$(q):n = md(q) 

3026 on n gosub 3050. 4010, 4010. 3050, 3100, 3100. 3100. 3050. 3050, 3050, 3050, 3110.3100 
3030 if p< = e then 3025 

3039 gosub 9600 : print'"Hpass2B' : return 

3050 gosub 2000 :p = p + cl : return 

3100 gosub 2000: ad =q: gosub 2000 :ad = ad + q'mh 

3101 if ad> = sand ad< = e then pokets + ad-s, cl 

3102 p = p + c2: return 

3110 gosub 2000 :ad = p + q-\q>mr)'mh + c2 

31 11 if ad> = s and ad< = e tl ten poke ts + ad-s. cl 
3120 p = p + cl : return 

4000 ifp>e then print's,";" : prinl'S^end" : close 3 : close 2 : end 

4001 if p<s or p>e then return 

4005 iffnrl(p-s)thenprint*3.'';" :prinf3."'ad'";:ad = p;gosub9000 

4010 return 

9000 poke ai, fnl(ad) : poke ah. ad/mh : cmdS,; : sys h4 : return 

9010 poke ai, ad : cmdS,; : sys h2 : relurn 

9600 dose 2 : open 2, 8, 0. f$ : get''2, al, a$ : relurn 



10000 data 


0, 


brk. 


3, 


1. 


ora, 


9, 


5, 


ora. 


4, 


6, 


iisl. 


4 


10010 data 


8, 


php, 


3, 


9, 


ora. 


1, 


10, 


asl. 


2, 


13, 


ora, 


5 


10020 data 


14, 


asl, 


5, 


16, 


bpl. 


12, 


17, 


ora. 


8, 


21, 


ora, 


10 


10030 data 


22, 


asl, 


10, 


24, 


etc. 


3, 


25, 


ora, 


7, 


29, 


era. 


6 


10040 data 


30, 


asl, 


6, 


32, 


jsr. 


5, 


33, 


and. 


9, 


37, 


and, 


4 


10050 data 


38, 


rol, 


4, 


40, 


pip. 


3, 


41, 


and, 


1, 


42, 


rol, 


2 


10060 data 


45, 


and. 


5, 


46, 


rol, 


5, 


48, 


bmi, 


12, 


49, 


and, 


8 


10070 data 


53, 


and, 


10. 


54. 


rol, 


10, 


56, 


sec, 


3, 


57, 


and. 


7 


10080 data 


61, 


and. 


6, 


62, 


rol. 


6, 


64, 


rti, 


3, 


65. 


eot. 


9 


10090 data 


69, 


eor, 


4, 


70, 


Isr, 


4, 


72, 


pha, 


3, 


73. 


eor. 


1 


10100 data 


74, 


Isr, 


2, 


76, 


imp. 


5, 


77, 


eor. 


5, 


78. 


Isr. 


5 


10110 data 


80. 


bvc, 


12. 


81. 


eor, 


8, 


85, 


eor, 


10. 


86. 


Isr. 


10 


10120 data 


88. 


cli. 


3, 


89, 


eor. 


7, 


93, 


eor, 


6, 


94. 


Isr. 


6 


10130 data 


96, 


rts. 


3, 


97, 


adc, 


9, 


101, 


adc, 


4, 


102, 


ror, 


4 


lOHO data 


104, 


pla. 


3, 


105, 


adc. 


1, 


106, 


ror. 


2, 


108, 


imp. 


13 


10150 data 


109. 


adc. 


5, 


110, 


ror, 


5, 


112, 


bvs, 


12, 


113, 


adc, 


8 


10160 data 117, 


adc, 


10, 


118. 


ror. 


10, 


120, 


sei, 


3, 


121. 


adc, 


7 


10170 dat,T 


125, 


adc. 


6, 


126, 


ror, 


6, 


129. 


sta, 


9. 


132, 


sty. 


4 


10180 data 


133, 


sla. 


4, 


134, 


six, 


4. 


136. 


dey, 


3. 


138. 


txa. 


3 


10190 data 


140, 


sty. 


5. 


141. 


sla. 


5. 


142, 


stx, 


5, 


144. 


bcc. 


12 


10200 data 


145. 


sta. 


8. 


148. 


ay. 


10, 


149, 


sta. 


10. 


150. 


stx. 


11 


10210 data 


152, 


tya, 


3. 


153, 


sta, 


7, 


154, 


txs. 


3. 


157. 


sta. 


6 


10220 data 


160, 


Idy, 


1, 


161. 


Ida, 


9, 


162, 


Idx, 


1, 


164. 


Idy, 


4 


10230 dtiia 


165. 


Ida. 


4, 


166, 


idx, 


4, 


168, 


tay. 


3, 


169, 


Ida, 


1 


10240 data 


170, 


tax, 


3, 


172, 


Idy. 


5, 


173, 


Ida, 


5, 


174, 


Idx, 


5 
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10250 data !76, 


bcs, 


12. 177. 


Ida, 


8. 180. 


Idy, 


10, 


181, 


Ida, 


10 


10260 data 182, 


Idx, 


11, 184. 


civ, 


3. 185. 


Ida, 


7. 


186, 


tsx. 


3 


10270 data 188, 


idy, 


6. 189, 


Ida. 


6. 190, 


Idx, 


7. 


192, 


cpy. 


1 


10280 data 193. 


cmp, 


9. 196, 


cpy, 


4. 197, 


cmp, 


4. 


198. 


dec, 


4 


10290 data 200, 


iny, 


3. 201. 


cmp. 


1. 202. 


dex, 


3. 


204, 


cpy. 


5 


10300 data 205, 


cmp, 


5. 206. 


dec. 


5, 208, 


bne, 


12, 


209, 


cmp, 


8 


10310 data 213, 


cmp, 


10. 214, 


dec. 


10, 216, 


eld, 


3. 


217, 


cmp. 


7 


10320 data 221, 


cmp, 


6. 222, 


dec, 


6. 224. 


cpx. 


1. 


225. 


sbc. 


9 


10330 data 228, 


cpx, 


4, 229, 


sbc. 


4. 230, 


inc. 


4. 


232. 


inx, 


3 


10340 data 233. 


sbc, 


1, 234. 


nop. 


3, 236. 


cpx, 


5. 


237. 


sbc. 


5 


T0350 data 238. 


tnc. 


5. 240, 


beq. 


12. 241. 


sbc. 


8. 


245. 


sbc. 


10 


10360 data 246. 


inc. 


10, 248, 


sed. 


3. 249, 


sbc. 


7. 


253. 


sbc. 


6 


10370 data 254, 


inc. 


6 
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Universal String Thing 



This is nol a complete Siring Thing*, jusl the INPUT* 
section. Quite simply, the program is an INPUT* utility that 
lifts some of the restraints imposed by the BASIC INPUT* 
command It works on all veraons of BASIC {except 1 .0) for 
PETs and CBMs. If there's enough demand, a ViC String 
Thing will be released that will probably work on the 
Commodore 64 when it arrives. 

Logical aie number 1 must be used in the DOPEN or OPEN 
statement. Using Ihe routine wilh any other file number will 
result in ?FILE NOT OPEN ERROR after the SYS call. 



No buffer Is required for the incoming data The characters 
are buili directly into the space allocated for the string 
variable. If the string resides in high RAM, ihey will be 
delivered there. If the string is declared in the program, the 
characters will land right in text space. 

The string used for input must be the first variable seen by 
BASIC, Location 189 decimal is used to store the length of 
the input string. Input stops only on Carriage Return and 
EOl which occurs at the end of a file or relative records not 
terminated by a CR, Leading spaces, commas, colons and 
quotation marks are all accepted. 

The size of Ihe string can be used to govern Ihe amount of 
input. For example, removing lines 110 and 120 from the 
program below leaves a$="abcdefghijklmnopq", wUh a 



Jim Butterf ield 

Toronto 



length of 17. Now, strings longer than 17 can nol be 
retrieved in whole. Instead, the first \7 characters are 
brought in and the remainder is received in subsequent 
cails. If the string is exactly 1 7 long followed by a Carriage 
Return, a subsequent input would be met by the CR and 
PEEK(1S9) would equal zero. Be careful though. In this case 
A$ will contain the previous input, nol null string. 

Using this routine as opposed to INPUT* can be especially 
helpful when disk space is at a premium. It can handle 
strings up to 255 characters long and there's no need for 
Carriage Returns. 



• - The String Thing was originally a utility written by Bi 
MacLean of BMB Compuscience. It included string search, 
string overlay, and siring input functions. For details on this 
program, see The Transactor, Volume 3, Issue 1, Copies are 
available from Ihe Toronto PET Users Group, 
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40 rem *•*•*♦♦•**•»**••*•+*♦#•#**•#**♦ 

50 rem *♦ string thing (universal) •* 

60 rem • * ]im bu^tcrfidcl *• 

70 rem •♦ string used for input *♦ 

80 rem** must be first variable •♦ 

90 rem ****** *^ ********** t^>^*********it 

100 aS-'abcdefghijklmnopq" 

110 a$ = a$ + aS+a$ + a$ + a$ 

120 a$ = a$ + aS + a$ 

1 30 rem above sets string for maximum (ie, 255) 

200 data 160, 2J77, 42.153,184, 0,200.192, 6 

210 data 208,246,162, 1, 32,198,255 

220 data 32,228,255,201. 13,240, 11,164.189,145 

230 datal87,200, 132, 189, 196. 186,208.238, 76,204,255 

250 for ] = 896to 933: read x: poke j,x:t = t + x:nexlj 

260 if t<>5767 then stop 

400 dopen'l,'someSEQfile',dO 

410 rem : next sys same as 1npiit*l ,a$' 

420 sys 896 

425 rem : I =size of input (could be 0) 

430 l:=peek(189) 

440 print left${a$,l) 

450 if St = goto 420 

460 dclose 
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File Chain Tracer 



Bill MacLean 
Milton, Ont. 



Think about it. Relative record lengths limiled only by the 
capacity of your disk. Number of files open simultaneously 
limiled only by FRE(O). A!) possible using this utility by Bill 
MacLean of Milton Ontario, 

Every disk file (SEQ, PRG, or USR) is contructed from sectors 
that are linked together using "chain pointers". Each chain 
pointer consists of two byies Chat represent Ihe track and 
sector co-ordinates ot the next block in the i\\e. The pointer 
to the first block is stored in the directory beside the 
filename. Subsequent pointers are stored in the first two 
bytes (0 and 1 } of each sector in the file. To indicate the last 
sector of a file, the track co-ordinate is set to zero (CBM disk 
units do not use track for Ihis reason), and the byte used for 
the sector co-ordinate is sel to the last position used. 

By reading all of these pointers into an array, a complete 
map can be built of any file on disk. Then, using a Direct 
Access channel, any part of any file can be read at any lime 
with a 'block-read' command followed by the correspond- 
ing track and sector values stored in the array for tha! file. 
Positioning into the sector is done with the "btiffer-pointer" 
command. 

There are several ways of tracing these pointers Co the end of 
a file. The (rick, of course, is to get the first one out of the 
directory. One could OPEN the directory as an SEQ file, but 
searching through a long directory is slow in BASIC. Bill's 



program lets the DOS do Chat work in machine language. 
When a file is OPENed, the DOS must also know where the 
directory entry lies. These values are stored in DOS memory 
and can be retrieved with the "memory-read'' and GET" 
commands. Once the first sector is found from the directory, 
the following sectors are "block-read" with the ^V\" com- 
mand, and the pointers are collected by GET*ing Ihe first 2 
bytes from each until the track value equals zero, 

Other Program Notes 

This program will work on the 8050, 8250, 9060, 9090, and 
the 4040 by removing the first "rem" in line 100, DOS 
variables in the 4040 are all in the same places but otSset by 
4. The single drive 2031 is totally different and will not 
respond properly to this program, VIC disks were not tested. 

Accomodations are made for 21 simultaneous open files 
with a maximum size of 101 t>locks each. The two integer 
arrays use up a total of about 8K, Change the dimensions 
appropriately for more or less files, and more or less maxi- 
mum blocks, but they must be identical and there must be 
enough RAM to hold them along with your program and 
other variables. A quick approximation for RAM consump- 
tion of one integer array is the product ot the dimensions 
limes 2, 

The D array is for Drive numbers. Preferably, all files 
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concerned would be on one diskette, but the routine will fraction of the time it would take to open and close all of the 
find files on either drive. files seperateiy. 



PRINT DS$ might be replaced by a GOSUB to your favorite 
error routine. Non-exislejit files will also be reported by 
lines 160 to 180. 

Even though the data file has been CLOSEd (line 150), all 
DOS variables are still present in RAM until they're over- 
written by another OPEN. The sector, track, and drive 
number afe used to "Ul" the actual directory sector that 
holds the filename Fl$. The track and sector co-ordinates of 
the first block in a file are stored in the 2nd and 3rd positions 
of a directory entry. Thus 1 is added to the offset before 
executing the "buffer-pointer" command. 

Should the file youVe OPENed be found in the last sector of 
the directory, the track, as with any other file, is set to zero. If 
Track = 0. T is set back to the directory track number (line 
270), but this must be decided by the operator (eg. another 
INPUT) or, tetter yet, a subroutine designed to test what 
type of disk unit is connected. 

Using This Technique 

With this routine, a relative file system could be imple- 
mented with record sizes much larger than 254. Of course 
strings are limited to 255 so more than one would be 
necessary to store a record, 

A subroutine for (his would need the array index numt>er 
(Isl dimension) that contains the pointers to a particular file. 
This information should also be stored as pointers are 
collected. To position to a record, (he program would "Ul" 
the closest sector. The co-ordinates for this sector will be 
stored in the array at the element calculated by: 

INT ((record number - 1 )*{record size / 254)) 

The remainder o( the above is used to position into the 
sector when the record size is not a multiple of 254. A 
counter must also be maintained so that the next block 
would be read when the 254th byte has been retrieved. A 
slight variation trf Jim Butterfield's Universal String Thing 
(this issue) would be ideal. 

Now that you have all this done, a columnar report genera- 
tor is a simple task. Figures from several different files could 
be output side-by-side. 

Although this approach is not immediately suited for ex- 
panding files, it could be included with a little extra code. 
However, changes to existing data can tie perform^ in a 



On final note, . . Bill MacLean tells me that he may release a 
more complete version of this utility if there's enough 
demand. It would contain all necessary functions such as 
those discussed, plus some extras, (no doubt). Comments 
are welcome, please address them to me (Karl J. Hildon) at 
The Transactor > 
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rem error r 



100 rem d4040 = 4 : rem remove rem for use with 4040 

110 z$ = chr$(0):climt%(20, 100),s36(20, 100), d(20) 

120 mpuffil€aameJile*"';f$,f:fi$-(S + ",s.r'' 

130 opeti2.8,2,"*'':op€nl5,SJ5 

140 open 5. 8, 5, (fi$) 

150 print ds$ : dose 5 

160 print*15, '■m-r''chr$(142 + d4);chr$[67) 

170 geE*l5.a$:e=asc(a$-fz$) 

1 80 il e = 255 then piim'Bnot found" ; print ; goto 450 

190 prfnt'l5/m-r'chr$(l46 + d4);chT$(67) 

200 get'15,a$:s = asc{a$ + z$) 

210 prinl*15/'m-r''chr*(M9 + d4):chr$(67) 

220 get'*'15,a$:l = asc(a$-t-z$) 

230 print'15/ni-r''chf${150 + d4);chr${67) 

240 gel*I5, aS:o = asc(a$ + z$) 

250 pnnt'15/in-T''chrS(144-fd4);chr$(67) 

260 get*15, a$:d = asc(a$ + z$);d(f) = d 



rem open direct and cmd channel 
rem open and 
rem dose file 'fi$' 



rem sector in dir 



rem track in dir 



rem offset into sector 



270 ift=0thenl = 39 

280 print'entry dir tracks sector = 

290 print" offset into sector = 

300 print' drive = 

310 print*l5/ui;;2;d;l;s 

320 print*'15/b-p'';2;o + l 

330 n = 

340 gel*2, a$ 

350 !=asc(a$ + z$) 

360 get'2,al 

370 s = asc(a$ + z$) 

380 l%(f, n) = l:s%(f, n)=s 

390 if 1 = then 450 

400 print''sec.'';nfof fjleat'';t,s 

410 n = n + l 

420 prim*15/ul:";2;d;i,s 

430 prinl*15,''b-p:";2:0 

440 golo 340 

450 close 2 : close 15 



; rem drive num 
: rem t = 18 for 4040, 76 for 9060/90 



W ff 



t; » ;s 





: rem position into dir 
: rem array index 
: rem get track 

: rem gel sector 

: rem store in array 

: rem track=0? yes, end 



; rem read subsequent biks 
: rem pos'n to zero 
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Translation Arrays 



How many times have you wanted to represent a number 
using a k^ on the keyboard? Never, eh. Well. . , next lime 
you do, this tidy little piece of code will come in handy. 



100 geta$:if 

no ifa$-'q' 

120 ifa$=V 

130 ifa$=V 

140 ifa$='r' 

150 ifa$=T 

160 ifa$-y 

170 ifa$=''u' 

180 ifa$='i'" 

190 ifa$='o" 

200 ifa$='p' 

210 print x: 



3$="" then 100 
lhenx=l 
'ihenx = 2 
then x = 4 
thenx = 8 
then x= 16 
then x = 32 
then X = 64 
then x= 128 
then x = 256 
then x= 51 2 
goto 100 



But you say, "that's not very tidy at all" , and you're 
absolutely right. As a matter o' fact, it reeks. Here's a better 

way, 



t I 



Given the nature of the possibiliti« for X (ie, ail powers of 2), 
it becomes apparent that a FOR-NEXT loop could search 
through KY$, and then output 2 raised to the power of N. 
where N is the position of A$ within KY$. For exarT^>le: 



100 ky$='qwertyuiop'' 

110 get3(:ifa$=*"thennO 

120 forj=lto!en(ky$) 

ISO ifaS = mid$(ky$J, l)then 

print 2 t{j-l): goto 110 
140 next; goto HO 

Only the problem here is that as KY$ gets longer, the search 
becomes slower, and our output numbers may not be so 
orderly. 

The best way is a translation array. It allows for expansion, 
it's fast, and can handle every key on the keyboard. 

100 kyS^'qwertyuiop- 

105 dim out {255) 

no forj=ltolen(ky$) 

120 oul(asc(mid$(ky$j})) = 2t{j-l) 

130 next 

140 geta$:ifa$='"'ihenl40 

1 50 print out (asc (a$)) : goto 1 40 

Of course the above is merely a transposition of the first two. 
The technique shows Its true strength in the following 

examples. 
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IEEE Modem Driver 

Have you ever been in a bind lor an ASCII modem driver bul 
just didn'E have one within reach? Converting PET ASCII 
(sometimes called "PETSCir') to real ASCII is not so tough 
using translation arrays. With this program you can be up 
and running in no time from any PET/CBM through an 
IEEE modem, and it's easily memorized. 

100 gosub200 

1 TO get a$ : if a$<>" " then print'5, chr$(t(asc(aS))); 

120 if peek(srq) and 128 then get*5, a$ ; x9 = peek{ieee) ; 

print chr$(f(asc(a$ + dir$(0)))); 

130 goto 110 

200 dim 1(255), f(255) ; print chr$(l 4) 

210 (Of j = 32 to 64:l(j)=i : next 

220 forj = G5 to 90 : tG) = j-+-32 : n. yl 

230 fori = 91 to 95 : l(!)=j :r-^xt 

240 fori=192to218;t(i)-hl28:rext 

250 t(13)=13:t(20)^8 

260 rem add more functions here 

270 fori = 0to255:ift(i)Jhenf(t(i)) = j:f(lC)+'28}=i: next 
280 poke 1 020, : poke 59468, 1 4 : open 5, 5 
290 srq=59427:ieee = 59426: return 

This modem driver is actually an adaptation of one by Jim 
ButterfJeM with a pinch of Paul Higginboliom flavouring. 
Notice that the keyboard /modem servicing is kept close to 
the starl with the set-up called once as a subroutine. In a 
communications type environment, maximum speed is es- 
sential When BASIC sees a backwards GOTO (as in line 
1 30) it starts at the beginning of BASIC and searches forward 
lo the destination line. By moving the setup routine out of 
the way, BASIC is relieved of looking through unnecessary 
line numbers. The lime saved is not much, bul might be just 
enough to save potentially lost characters while transmitting 
and/or receiving. 

Two translation tables are used here: the T array for charac- 
ters sent to the modem and the F array for characters 
received from the modem. Integer arrays could have been 
used bul floating point arrays are faster. 

Graphics are seldom used in communications. PRINT 
CHR$(1 4) sets Upper/Lower case mode. 

Line 210 begins setting up the TO array. Characters 32 
(space) through 64 (@) are the same in ASCII as in PETSCll, 
so a simple equate does it. In Upper/Lower case mode, 
PETSCll 65 to 90 displays lower case letters, and in true 
ASCII, lower case ranges from 97 to 122. so 32 Is added to 
each (Line 220). The five characters from 91 to 95 are the 
same again for both. True ASCII upper case is the same as 



PETSCll lower case values, however, unlike dumb termi- 
nals, one must use the SHIFT key to obtain them. This is 
handled by line 240, Carriage return and Delete are away 
Jrom the main stream of things so they're set up individually 
(line 250). POKE 1020. disables IEEE timeout and the 
OPEN command is for the modem. 

Getting back to our subject, it's lines 110 and 120 that lake 
advantage of the arrays. Line 1 10 GETs characters Jrom the 
keyboard. When it has one, the PETSCll value is used as an 
index into the TO array. For example, pressing DELete, 
which is CHR$(20), causes the contents of T(20) to be sent to 
the modem as a sirtgle byte value, in this case 8 which is 
ASCII for RubouL 

Line 120 GETs from the modem, SRQ signals a character 
pending by setting bit 7 of 59427. After the GET*, the SRQ 
flag is cleared by simply doing a read of the IEEE output 
buffer (this is buill info the smarts of the IC), The true ASCII 
character received is used as an index into the FROM array. 
The character is converted to PETSCll and PRINTed using 
CHR$. The CHR$(0) is added to AS as a precaution against 
the null string. 



Keyboard Setup 

Now let's lake things one step further. Addressing one 
problem at a time Is often the best way to solve a program- 
ming task. Here we'll look at a simple organ keyboard. 

First, a table of frequencies must be established- This is done 
easily using a standard formula found in any book of music 
fundamentals. It starts with the highest desired note and 
then divides it down for subsequent descending notes. The 
results are store inio the F (Frequen<7) array. 

Next the keyboard is defined. On octave covers 12 notes* A 
to G plus the sharps. The 24 keys chosen to correspond to 
the 24 calculated frequencies were selected to resemble a 
dual-level piano keyboard (Lines 1000-1040). 




The KY array is used to store ascending values from I to 24 
in the element corresponding to the ASC value of the keys 
(Lines 2000-2040). 

So now we have two levels of Indirection. The ASC value of 
the key pressed is used to index the key array, and the value 
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there is used to index into t!ie frequency array, 

1000 dimf(24):fU7040 

1010 forj = 24to]step-l 

1020 [l=n/(2t(l/12)) 

1030 f{j) = fl 

1040 next 

2000 dim ky (255} 

2010 kyS = 'zsxdcvgl>linjinr5(6yu8i9o0p" 
2020 forj-1 tolen{ky$) 
2030 •ty(asc(mid$(kySJ,l})) = j 
2040 next 

3000 poke 59466, 15 

3010 poke59467, 16 

3020 geta$:ifaS = "" then 3020 

3030 fr = {500000/4/f (ky (asc (a$)))) - 2 

3040 poke 59464, fr : rem print fr 

3050 if peek (151)0 255 then 3050 

3060 poke 59464,0 

3070 goto 3020 

L 

Several modifications are available (o this program. First of 
all it uses only one wavefonn pallern. The ",15" in line 
3000 is binary 00001111. This will produce a very even 
square wave. Try different values but and 255 will produce 
nothing. Secondly, try substituting the single 4 in line 3030 
to a 2 or an S. The variable FR can range from 1 to 255. Take 
(he REM out of line 3040 to see what it's doing. The range 
could be increased several ways. You might add more 
frequencies and keys or you can leave a couple of octaves 
gap between the lower and the higher when setting up the F 
array. 

This program is extremely unsophisticated, so there's lots of 
room for improvement. However, the emphasis was on 
translation arrays. When we explore music synthesis, the 
techniques employed here will undoubtedly re-surface. 
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Filing It 



Jim Butterf ield 
Toronto, Ont. 



Once you have learned how to input from the keyboard and 
output to the screen, it's easy to take the next step, and input 

or output using other devices. 

The printer is handy, of course. But the super power comes 
from devices you can both read and write. That way, 
information can be stored now and brought back in later- 
You can store names, addresses, phone numbers, . .and 
read them in when you need Ihem. This gives you two 
advantages: first, the information isn't lost when you turn 
the power off: and second, you have lots of storage space 
even if your computer memory is small. 

The Golden Rule. 

You'll find it easy to remember the golden rule of input and 
output: the information going out is almost e>:acliy as you 
would see it on the screen. So if you asked to print out a 
value of 167> the following characters would be sent to the 
cassette, printer or disk: Space; 1;6; 7; Return. Thai's almost 
exactly the same as would go to the screen; we wouldn't see 
the Return on the screen, but we'd see its effect since a new 
line would be started. 

The opposite side of the golden rule concerns input. If the 
above value was written to a device, and later we rewind 
and ask to INPUT from that device, the program will re- 
ceived exactly the same information as if we typed on the 



keys: Space, 1, 6. 7. and Return. On the keyboard, RETURN" 
signals that we are finished; and it means the same when 
the information comes from some other device. 

Two special situations should be mentioned. You might 
have noticed that if we say PRINT 167 an extra character is 
delivered to the screen: behind the last digit, 1, there's a 
cursor-right. You may not notice it. since it doesn't print, but 
it's there. This extra character will not be sent to other 
devices. That's good because we don't need it; we save the 
space and no harm is done. 

The other situation is another invisible character. Many 
versions of Basic send one more character after RETURN. 
Basic 4.0 does not normally send it. but most other Basics 
send a special character called a Linefeed. The Linefeed is a 
nice character for certain types of printers: it may be needed 
to move the paper up ready for printing the next line. But it's 
wasted in data storage, and might even give us a little 
trouble. More on this later. 

Writing A File. 

It's easy to write a file. All we need to do is: Open it. which 
tells the computer to get everything ready to go; Print the 
stuff; and then Close it, which tells the computer to wrap 
everything up. 
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Let's do it- if you have cassette tape, type: 

OPEN 6,1, 1/DATAFILE" 
or if you have disk, type: 

OPRN 6, 8, 2. '0:DATAFILE.S,W 

. . .and in either case, your file numher 6 is ready to go. 

Now we can wrile a few things. Let's try some numbers: 
PRINX'^6. 3 
PRINT^e, 123 
FRINT*6, 3*45*6 

And a few names: 

PRINT^e, "HELLO" 

PR1NT*6, "MY NAME IS FRED" 

Finally, we wrap up the file with: 



CLOSE 6 

A few notes. Did you notice that after we opened the file, the 
coding was the same no matter whether we were going to 
tape or disk? The OPEN statement sets everything up for us. 
This can make things very easy. 

Note that we use one print statement for one item. Don't try 
punctuation: PRINT*6,3,123 would not work right — we 
will need that extra RETURN when we read back the data. 
It's also interesting to sec that expressions are worked out 
beiore being printed, so that 3""45*6 will be placed on the 
file as value 42. 

Now for that sneaky Linefeed. You don't really need to 
worry about this if you have 4.0 Basic or [f you are using 
cassette tape, but it's good practice. Those PRINT" state- 
ments wrote the information we asked; then a Return, 
which we wanted: ttien a Linefeed, which we didn't want. 
We can get rid of tfie unwanted Linefeed by writing the 
Return ourselves — it codes as CHR$(1 3). So we might more 
correctly write: 

PRINT*6, "HELLO"; aiR$(l3); 

. . .and don't forget both semicolons. 



Reading It Back. 

This is just as easy, except that we need to write these 
statements as a program. INPUT and INPUT* won't work as 



direct statements typed on the screen. So w'e code: 
100OPEiV4, 0.0/DATAFILE" 

or, for disk: 
100OPEN4, 8,3/'DATAFIL£" 

And continue with: 

110[NPUT«'4.AS 
120 PRINT A$ 
1301FST = 0GOTO 1100 
140 CLOSE 4 

What's ST doing? That's the Status word. If it's zero, we are 
reading our file normally. If it's non-zero there is something 
going on — usually we are at the end of the file (ST will equal 
64 in this case). 

Your data should come back very nicely just as you wrote it. 



Conclusion. 

It's not hard to write and read files. Well pick up a few fine 
points next time around. 



The 'hvnsoctor 



31 



Sepfember /October 1982 



SuperPET Terminal Program John Stoveken 

Milton, Ont. 



[f you have a SuperPET and an RS232 modem, then yoti 
probably have a terminal program to make them go. But 
unless you wrote the program, you may be wondering how 
the SuperPET serial port works. This program will show you 
just how easy it is. 

The SuperPET RS232 port is controlled entirely by one chip; 
the 6551 AGA (Asynchronous Communications inlertace 
Adapter). The 6551 has 4 internal registers; dta, status, the 
command register, and the control register. Incoming/ 
outgoing characters are routed through the Data Register. 
The Status Register tells us if a character has arrived. \i the 
last one was sent, and other things like transmission errors. 
The Command Register controls various transmit/ receive 
lunclions such as parity mode, full/hah duplex, etc. Baud 
rale, word length, number of stop bits, and clock source are 
controlled by the Control Register. Addresses for the 6551 
registers are from $EFFO lo $EFF3. 

Only the Control and Command Registers need to be set up 
before using the port. Various functions are invoked by 
selling bits within the registers. The program sets the Con- 
irol Reg, for 300 baud (baud = bits per second), a word 
length ol 7 with I stop bit, and all controlled by the 6551 
internal clock. The Command Reg. is set for even parity and 
no interrupts. Some other configurations are shown in the 
listing, but for more details see the tables that follow. 



Once you've established the configuration of the ACIA, the 
Data and Status registers do all the work. The Data Reg. is 
used for both sending and receiving characters. The 6551 
"knows" the difference between characters intended for 
output and those that must be treated as input. Two bits in 
the Status Register Hag these conditions. When a character 
comes in from the RS232 line, bit 3 of the Status Reg. is set Eo 
l(lJnes220-230V[fyou>e5endingacharaclerbyPOKingit 
to the Data Register, bit 4 fo (he Status Reg. must be set to I 
or else the last character has not been sent (lines 340 & 350). 
The entire communications section in this program lies 
between 200 and 390. It's easy to follow, . . start by imagin- 
ing an inactive RS232 line and an inactive keyboard. 

The Status Register also flags other polentiai conditions such 
as errrors in transmission Bui unless you go to a machine 
language program, you won't have time in BASIC to do 
anything with Ihem. BASIC will permit about 300 baud 
maximum. Anything higher and you'l) start dropping char- 
acters. 

Editor's Note 

You'll notice that John is using translation arrays to convert 
Pet ASCII to true ASCII and vice versa. For more informalion 
on this powerful and versatile technique, see the article in 
this issue entitled "Translation Arrays'* . 



ThvlroriMictcH- 



33 



S#ptgmb»rfO<fob»r 19a2 



*#*■!■ 



10 rem ***« simple basic lerminai program for superpet 

20 rs = 14M096 + 15*256 -f 15«16;remsuperpe! 6551 address 

30cn = 6 + 16 + 32 + : rem 300 baud + elk + 7 bit word + 1 slop bit 

31 rem other configs:6 + 16 + 32 + 128 = above with 2 stop bits 

32 rem 8+16 + 32 + = 1200 baud, good luck in basic 

33 rem 6+16 + 0+0 = S bit word 

40 cm = 96 + 1 1 ;rem even parity and no interrupts 

41 rem 32 + 11 = oddparity.O + 11 ^ no parity 
50 poke rs + 2 , cm 

60 poke rs + 3 , en 

70d$-ciir$(20) 

80 gosub 1000 :rem set up tran,slation arravs 

90print"H"; 

98 rem 

99: 

200 a = peei<rs+l) 

210 if (a and 8) = then 300 

220 cr = peek(rs) 



***+**¥ 



jet character in 



#x*»v^v 



:rem status register 
:rem no character received 
:rem receive character 
:rem ascii to pet conversion 



*■ K M K # * ifc 



send character out 



:rem get keyboard character 



:rem next character control 



irem last character not sent 

:rem pet to ascii 

:rem send character out 



ascii to pet to ascii table conversion 



225 cr = ap(cr) 
230 print chr$[cr); 
297: 
298 rem 

299: 

300 get a$: if a$-"" then 200 
310 ch = asc(a$) 
320ifch-18thenct = l ;goto300 

330ifct = l thenct = 0:ch = chand63 

340 a = peek(rs+l) 

350 if a and 16 = then 340 

360 print chr$(ch); 

370 ch -pa(ch) 

380 poke rs, ch 

390 goto 200 

997: 

998 :rem 

999: 

1000 dim pa[255).ap(255) 

1010 for i = to 64 :pa(i) = i :ap(i) = i: next :rem numbers and stuff 

1020fori = 65to90 

1030pa{i)-i + 32 

1040 ap(i) = i+ 128 

1050 next 

1060for[ = 91to96:pa(i) = i:ap(i) = i:next:ap(96) = 44 
1070forj = 97tn 127 

1090ap(i) = i-32 

1100 next 

ni0fori=193to218 

1120pa(i) = i-128 

1130 next 

1140 ap{127) = 20:pa(20)= 127 :rem deletes 

1 150 ap[8)= 157 : pa(157) = 8 :rem backspace 

1160pa[7) = 7:ap(7)-7 :rembell 

1170ap(12)=147:pa(147)=12 :remclr screen/form food 

n80ap(10)=10:pa{10)=10 :rem If 

1190 pa(13)= 13 ;ap{13) = 13 :pa(141)=13remcr (permits shift lock) 
1200 return 
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APL And The SuperPET 



Serial Port 



Eike Kaiser 
Toronto, Ont. 



After working with computers for only four years, the real 
surprise in this relationship is probably the infrequency 
rather than the frequency with which major problems arise. 
I won't claim that this is because almost all my work is in 
APL, but it proba[:}ly does contribute. One such problem that 
IVe finally cleared up involved tlm use of the serial port 
(RS-232C)on my SuperPET, It took a lot of help from a lot of 
people, but my special thanks go to Peter Velocci of Commo- 
dore Canada. He took the time and showed the interest to 
set up the contacts that finally shod light on one more 
hidden secret of the SuperPET. 

Documentation of the SuperPET's serial port has only been 
released in bits and pieces. At this point I'm stifi not 
convinced that enough pieces have come out to let the 
average user pull them all together, even if he happens to 
have access to all the available literature. Til try to correct 
this here, at least for any APL users in the audience. Don't 
stop though, if you are not an APL freak like me. Much of 
this is not tied to any one language, other parts may al least 
be a guiding milestone! 

The first problem in using the serial port is to get some 
i^nformation about its "pinoiits": the location and operation 
of each of the 25 electrical connections that make up this 
communications channel. Some of this has recently become 
available, but none that 1 found was either explicit or 
complete. Here is how the standard information goes: 



RS-232C has the following 25 pins, in two columns 



1 eaflh groun: 




14 sec, transTTiitied dala 


2 lansiniltet data 


(TXD) 


15 Jransmii clock 


3 received data 


(RXD) 


[ 6 secondary received data 


4 requesltoscnd 


(RTS) 


7 receiver dock 


5 dear to send 


(CTS) 


8 .iinassigned. , , 


6 data set ready 


(DSR) 


■ 9 sec. requesi to send 


7 Jogicgrourid 




20 data terminal ready (DTR) 


8 carrier delect 


(DCDj 


21 signal quality delect 


9 , , reserved. . , 




22 ring detect 


10 . . .reserved. . . 




23 data rate select 


Tl . , unassigned. . 


J 


24 transmit clock 


12 sec, carrier deted 


25 . . -unassigned. , . 


13 sec, clear [0 send 





Normally, only pins 1-8 and pin 20 are used. Diablo and 
SuperPET use only these pins but may have conflict on pins 
2&3,orpins4&5. 

REF: Byte, May 1982, p. 212 et al 

Commodore Mag, Feb 82, p,58, Apr/May 82 p,S7 

Diablo documentation, p. 2-10 

Torpet, April 1982, p,23 

Computers and Programming, Jul/Aug 1981, p,31 

The Transactor, Volume 3^ Issue *6, p. 6 

The pin allocations shown above reflect the industry stand- 



ard which, so far as I have seen, Commodore have adhered 

to. As noted, only pins 1-8 and pin 20 are used by the 
SuperPET, Among other things, this limits users to only one 
serial device at a time being attached to the machine. It you 
dreamed of a plotter and printer, one of them better be on 
the IEEE port. 

The note on a possible conflict on pins 2 and 3 turned out to 
be a fact. I doubted this for a long time. The connection 
inside the SuperPET is the female side of the RS-232 plug. 
Without wfehing to sexist, I reasoned that the ''transmitted" 
line on a male plug really ought to be the '^received" line on 
a female plug. After all. none of the documentation refer- 
enced above said "transmitted to'* or "transmitted horn". 
My guess seemed a logical compromise, right??? 

Not so. It turns out that male or female doesn't matter (at 
least not in computers). Pin 2 sends data from whatever 
device that pin is attached to, regardless of its sex! Count 
one more for equality. 

The moral of all this is that pins 2 and 3 MUST be reversed in 
any connection between a SuperPET and a serial device that 
adheres to the industry standard tor the RS-232C ports. 
That is a generalization gleaned from experience, but 11 
seems even more sensible than my male/femaie theory. 

The possible conflict on pins 4 and 5 relates to a "hand- 
shake'^ procedure, where the SuperPET confirms that the 
printer is ready for input. Pins 6 and 8 are used to test that 
the printer is in fact there. If your printer doesn^t actually use 
these pins then it's time to play electrician. Without remov- 
ing any existing connections, somewhere in either machine, 
or in the cable joining them, you must make a connection 
between pins 4 and 5. and/or pins (5, S, and 20, These fool 
the SuperPET into thinking that the printer is sending all the 
right acknowledgements of its existence. For details, Water- 
loo has a technical letter with a bit more information. 

So much for the hardware. Now just plug it all up and watch 
APL fly back and forth between machines — right? Wrong! 

The SuperPET has its own special ASCII representations, 
which differ from the standard that most maimfacturers 
adhere to. This is more of a nuisance than a problem, since 
Waterloo have provided some facility, however meagre, for 
converting this ''internal representation" into an "external 
representation" that devices like ASCII printers can use. 
Conveniently, these are provide as the system functions 
"DXR" and "DIR". The former converts SuperPET jargon 
into something that the rest of the world can understand, 
while the latter turns incoming code into the SuperPET's 
talk. 



This difference doesn't seem to affect other Waterloo lan- 
guages, perhaps because they use tiie standard typewriter 
character set, unlike the special characters used by APL. 
Waterloo may also have found a less cumbersome way of 
tiandling the conversion in the other languages, and are 
moving slowly in this direction in release l.l of APE. Note 
though, that in release 1 .0 these conversions do not work on 
matrices. This is the improvement that release 1,1 will 
bring. For now we must convert our text line by line. 

Note that 1 said "text". Waterloo didn't provide for sending 

anything other than characters out the serial port, at least in 
APL. Numbers and function listings don't qualify. Both must 
first be converted to character representations of them- 
selves. This again is quite contrary to the basic philosophy of 
APL, which was to let users be users, and oblivious of 
computer technicalities. 



Fortunately these are not difficult tasks. "Thorn" (S) is the 
APL operator that converts numbers into their character 
representation, "55 5/?/25" gives a printable 5 by 5 matrix of 
all the numbers from 1 through 25. Functions, the APL 
equivalent of user defined program,s, are converted by the 
statement "DCR 'FN' ", where FN represents the function's 
name, which must be enclosed in single quotes. This has a 
hidden problem though. QCK strips the function of its line 
numbers, making the printed listing very different from 
users, especially new users, come to expect from their 
experience with listing functions on the screen. Thus, yet 
another step is forced on us by Waterloo — re-inserting line 
numbers in a way that mirrors what APL would normally 
give us. The program ^'NUMBER" is included below to meet 
this need. 

Here then are our three functions. "PRINT" is the main 
routine,and fairly thorough notes on its operation follow the 
listings. '^ASK" is a utility function that is called by PRINT, its 
purpose being to modify the way that user inpul is handled 
at the screen and to interrupt program execution until that 
input is received. This is used to permit changing paper if 
you are not using continuous forms. An alternative state- 
ment allowing for automatic advance of continuous forms is 
provided in the discussion below. '^NUMBER",finally. pro- 
vides for function line numbering as described above- 
Do note that the problems we are hxing here are not APL 
problems. They are little inconsistencies that Waterloo gave 
us In an otherwise very acceptable APL implementation. 
Hopefully future releases, beyond Li, will continue to work 
towards the APL goal of encouraging a very casual user 
relationship with the computer. 

Discussion of Function "PRINT" 



Note: St^e end of article for program listiiu 



ss. 



APL programs alway start with line zero, which defines the 
syntax of the function, along with any local variables that it 
will create. Their names, separated by semi-colons, list the 
temporary' work variables that will no longer be needed 
when execution lemiinates. Having them here tells APL to 
throw them out for you. Any variables created by the 
executing function but not listed in this way remain availa- 
ble forpossible later use. 



" > 



"P^NT" expects a right argument of X, which is the data we 
want printed- "X" can be a variable name, it can be ''^DATA" 
(the character representation of numbers) or it can be "OCR 
'Ff^j' ^\ as discussed above. In fact, APL even lets us string 
together more complicated arguments to functions. Remem- 
ber the problem of line numbers not appearing in the nCR 
of a function? To fix this, the '^NUMBER'' function above can 
be used as in this statement; 

PRINT NUMBER nCRTN' 

In this case "NUMBER^' is just another function which does 

its job before PRINT. The right argument in the header 
permits this type of syntax. 

Line one of an APL function is often resen'ed for a brief 
statement of what the function does or how. This is strictly a 
matter of style. I suggest you get into the habit, and a future 
article will show how you can take great advantage of this 
feature. Unlike BASIC, APL lets you have numerous pro- 
ijrams and sets of data available simultaneously, mixing and 
matching them as in our "PRINT NUMBER'^ example. This 
saves a great deal of code, because you can re-use utilities 
rather than re-coding them into every application that 
needs them. With such a mixture of functions, that one line 
of documentation can protect against confusion over similar 
names, and help you or others find their way around. 

Line 2 imposes a condition of our own on the data to be 
printed. This can be removed, if 3'ou prefer along with its 
error repori on line 13. its purpose is to prevent printing 
anything except two-dimensional matrices. The reason for 
this is that it is much easier to re-structure the data to a 
.standard format than to generalize the program for n-di- 
mensionai output. 

Line 3 sets up the ASCII printer as the output port. Even 
though '^serial" is a pre-defined file to the SuperPET, it is 
necessary to ^CREATF; it for use rather than just TIE^ it. To 
me this represents another anomally in the Waterloo imple- 
mentation. . . but again too small to beef about. As in BASIC, 
files are accessed by numbt^r. An APL system variable, 



DNUMS, keeps a list of all of the currently active file TIE' 
numbers, and the T/DNUMS" returns the largest element 
in this set. This illustrates the "monadic^' use of 'T", or 
ceiling, combined with reduction, "/", to select only the 
largest element from a set of data. Our statement also uses 
T" in its 'dyadic^ sense, maximum, w^hich selects the larger 
of this primitive's left and right arguments. In this case we 
have on the left, and the result of 'T/DNUMS" on the 
right. Thus if any files arc already TlEd then they will have a 
TIE number larger than zero, and that will be the maximum 
of the two values. If no files are TIEd, then will be the 
larger of the two values. In either case, we add one to the 
resulting value, to create a new and currently unused TIE 
number. This is stored in the variable 'TIE'\ with which we 
then"aCREATE" the link to the serial port. 



At this point we should test for the success of this operation. 
Release 1 .0 would allow this, but under release 1,1 of APL 
there will be no return code from the "nCREATE:" opera- 
tion, and therefore nothing to test. {This is based on prelimi- 
nary release LI information, and remains to be proven 
when this release becomes available) For now we will leave 
the function in the form most likely to outlive the imminent 
transition to release 1.1. 

One 4 now defines the number of rows of data (in X) that will 

be printed. This is used later to test for completion of the 
printing to be done. It wasn't necessary to use a variable to 
provide this control, but then we would have had to interro- 
gate the system for the size of X after each line was printed. 
In some APL systems this tan waste time and computer 
power, especially when large numbers of iterations are 
involved. 

Line 5 initializes a counter to zero. This will count the 

iterations through the printing loop, and hence the number 
of lines printed. It is immediately incremented on line 6, 
which starts the loop to sequentially print each line of data. 

Line 7 does the actual priming, but it also includes a test for 

the success of this operation. Note that each line of data will 

have two characters (carriage return and linefeed, hom^ 

□TC) catenated to it^s end before being turned to its external 

representation and tften DPUT to the file "TIE". If this 

operation is not successful it returns an error message which 

we store in "Q". Next we test if is not equal to the shape of 

Q (ie. that Q is not empty). If this is true (Q is not empty) then 

Q must contain an error message and we branch to the line 

''OUTERR^' {line 15) w^here the user is advised of the failure 
and it's cause. 

Line 8 now tests whether we have printed an even multiple 
of 60 lines. It uses the concept of residuals, an^ the assump- 



tion that most paper forms will accommodate 60 lines of 
print. You can change this value to suit your own needs, if 
the residual of 'T relative to this base value is not zero, then 
the program branches past line 9. 

If this residua] is zero (lines 60, 120. 180,, . .) then line 9 
invokes the sub-function ^'ASK'\ This prints to the screen 
the message that is given as it's right argument: here, 
"PAPER OUT. . .". This sub-function then waits for a re- 
sponse from the operator, allowing whatever time is neces- 
sary to pefmit changing paper. If you are using continuous 
forms with 66 lines per page, replace this line with: 



part will be invaluable though, since none of these sources 
will have had the experience with every gadget you might 
want to plug in to the RS'-232C port on you machine. 

Let us know how you feel about this article. Did it help with 
the serial port? With introductory APL examples? With 
example of APL style? 

Did it confuse?. . , bore?. . , enlighten? Was it timely or 
out-of-date, too simple or too advanced? Your interests are 
our interests, because our magazine is your magazine. 



(nXR5paTC[3])nPUTTIE 

This will space the paper up by 5 lines, getting you well past 
the perforations in the forms. For shorter forms you can 

modify the value 60 in line 8, and even squeeze down the 
vertical spaces in this revision to line 9, 



Line 10 test whether "1" is less than "LINBS" — have all 
available lines been printed? If not, it branches back to the 
top of LOOPl for the next line of data. If so, it proceeds to 
line 11, the equivalent of a ''CLOSE" statement in BASIC. 
Lines 1 2 and 14 branch out of the program to avoid printing 
error messages on 13 and 15, which were provided for 
conditions that might arise on lines 2 and 7. 

The utility function '^ASK" will not be explained here. It is 
well worth playing with this one though, since with small 
modifications it provides a wide range of control over user 
input. For example, change it to expect a left argument 
representing acceptable responses, then te.st for those re- 
sponses and branch back to line 2 if the user input doesn t 
match the allowed inputs. This is the basis of an almost 

unbeatable trap to safeguard your programs against all sorts 
of evils! 

The function '^NUMBER" will also not be explained here. At 

this point we don't know what audience the new Transactor 
will gather to itself, and the last thing we want is to turn off 
any of that audience with long monologues that don^t meet 
their needs. 



:r^ii 



Our purpose was to unlock some of the secrets of the 

SuperPET^s serial port, particularly for APL users who seem 
to have had an unfair share of undocumented problems to 
face. In the process we have tried to illustrate some concepts 

underiying the APL language. Other secrets are left for you 
to face, such as the parity, duplex, and linefeed settings on 
equipment that is available to you. Various suppliers and 
retailers will no doubt be glad to help with further questions, 
including Waterioo. Patience and experimentation on your 



VPRIN flUl^ 

[0] PRINT X iLmESiI;Q;TIE 

[1]b prints X TO PRINTER VIA SERIAL PORT; NOT LIMITED TO SCREEN DPW 

[23 *{2Xp(iX) / IPTERR 

[3] ' SERIAL' WREATE TIE-^1*0[ UUNUMS 

[It] LINES-UpX 

lelLOOPlxI-I+l 

[7] -^ioxpO^iOXR XL III, orcn SDDPUT TIB)/0UTERR 

[83 *{0*&Q\I)/TEST 

[9] Q*-A5K 'PAPER OUT: "RBTURN" TO CONTINUE^' 

i\QlTEST:-*-{I<LINES)/LO0P\ 
[11] WNTIE TIE 

[12] -K) 

[13]XP!7'E/?ff:'IffFi/2' JVI/5r Sff 2 DIMENSIONALi RE-STRUCTURE AND RE-SUBMIT^' 
[lit] ^ 

LlSlOUTERR:' INTERRUPT: OUTPUT FAILED, ' ,Q 
V 



V^5if[n]V 

[0] if^^lSif Jf 

[I3n ALLOWS RESPONSE ON SAME LINE AS PROMPT X 
[2] [!h-^,' -- ' 

[3] iK(it+pJir)+a 

V 



7WiWBfff?[n]V 



[0] Z^-N UMBER TXTiR 

[13 ff*-ltprar 

[23 /?*-0 "l*fCfl,l)p l+iR 

[33 2-^('['.J?,'3').Wr 
V 



Tiny-Aid For VIC-20 



David A. Hook 
Barrie, Ont. 
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Introduction 

Since the early days of the PET, various enhancements for 
BASIC have been available— Toolkit and Power are two 
commercial examples. Bill Seller, then of Commodore, pro- 
duced the first public-domain version, called BASIC-Aid. 

Many updates, corrections and improvements have been 
made over the past couple of years. The PET/CBM program 
has ballooned to a 4K package for almost every flavour of 
equipment configuration. 

As has been customary in the Commodore community, Mr. 
Jim Butterfield developed a version of the BASIC-Aid. He 
called this TINYAID2 (or TINYA1D4, for Basic 4.0). This 
offered the six most useful conuiiands from the full-fledged 
program. 

Following is my modification of that w'ork, designed to 
provide VIC users with the same benefits. After using this for 
a while, I think you w"ill find the added commands nearly 
indispensible. 

Features 

VIC Tiny Aid is a machine language program which con- 
sumes about 1200 bytes of your RAM memor>\ After you 
have loaded tlie program, type 'RL JN^ and hit 'RETURN', The 



program repacks itself into high memory. Tlie appropriate 

pointers are set so that BASIC will not clobber it. VIC Tiny 
Aid is now" alive. 

Once activated, five commands become attached to BASIC. 
They w^ill hmcEion only in "direct^' mode, i.e. don't include 
them in a program. 



(I) NUMBER 1000,5 
NUMBER 100.10 



'RETURN' 



Renumbers a BASIC program with a given starting line 
number and given increment between line numbers. The 

maximum increment is 255. 

All references after GOTO, THEN, GOSUB and RUN are 

automatically corrected, A display of tltese lines is presented 
on the screen as it works. If a GOTO refers to a non-existent 
line number, then it is changed to 65535. This is an illegal 
line number, and must be corrected before the BASIC 
program is used. 



(2) DELETE 100-200 'RETURY 

DELETE- 1500 
DELETE 5199- 



Deletes a range of lines from a BASIC program. Uses the 
same syntax ^s the LIST command, so any iine-range may 
be specifjed for removal. DELETE with no range will per- 
form like a NEW command, so be careful. 



possible that VIC Tiny Aid may interfere with other pro- 
grams that modify BASICs internal 'CHRGOT routine- The 
KILL command allows vou to avoid this conflict. 

If 



(3) FIND /PRINT/ 'RETURN^ 

FIND/A$/, 150-670 
FIND "PRiNr, 2000- 

VVilWocate any occurences of the characters between the ^7" 
marks. Almost any character may mark the start/end of the 
string to be found, so long as both are the same. The first 
example will find all the PRINT instructions in the program. 

If you are looking for a string of text which contains a BASIC 
keyword, you must use the quote characters as markers. 
This will prevent the search string from being ^^tokenized". 

If a limited line-range is desired, use the same syntax as for 
LIST Note that a comma ( 'V^ ) must separate the.line-range 
from the end marker. 



All lines containing the string are printed to the screen. If a 

line has more than one of them, each occurence will cause a 
repetiton of that line- 



Procedure 

The VIC contains no internal machine language monitor. 

wtiich is really the only practical way to enter this program. 
So follow one of the three methods below to perform the 
task- 



I) Borrow an Upgrade {2,0} or Basic 4.0 PET/CBM, with its 
internal ML monitor. This will be the easiest method to 

work with the program included. 



(2) Use your VIC~20, but you must have a machine language 
monitor: 



-Jim Butterfield's TINYMON FOR VIC (Compute^20. 
January 1982). -my adaption of SUPERMON FOR VIC 
(The Transactor, Volunte 3, Issue *^5}. -VSCMON car- 
tridge from Commodore- 

The easy way [?). Send S3, a blank cassette or 1540/ 
2031/4040 diskette in a stamped, self-addressed mailer 
to me at: 



(4) CHANGE -PRtN']-PRINT^4," 
CHANGE /ABC/XYZ/, 6000- 
CHANGE /DS$/D1$A -5000 



'RETURN' 



58 Steei Street 

BARRIE, Ontario, CANADA 

L4M 2E9 



Using the same syntax as FIND, you may change any siring 
to any other string in a BASK] program. This command is 

very powerful, and was not part of the early versions of 
Basic-Aid or Toolkit. 

As before, you may indicate a line-range. As the changes 
are made, the revised lines are displayed on the screen. 

Watch out for the difference between BASIC keywords and 

■J 

strings of text within quotes. You may use the quote charac- 
ters to differentiate, as with FIND. 



(5) KILL 



^RETURiM' 



This command disables VIC Tiny Aid and its associated 

If 

commands. A syntax error will be the result if any of the 
above commands are now tried. 

Since the routine is safe from interference from BASIC, you 
may leave it active for as long as your machine stays on. It is 



Bo sure its packaged securely. Diskettes wilt be returned in 
DOS 2,0 format. Only 2040 (DOS 1.0) owners need lake 
extra care. [The programs need to be co|)iod to a DOS 1,0 
formatted disk. Don't SAVE or otherwise WRITE to the disk 
you get). 

If you are using a VIC, and have a 3K RAM or SUPEREXPAN- 
DER cartddge, plug this in. It will be somewhat easier to 
follow, since programs are then 'TET-compatible" without 
further juggling. However don't use the 8K or 16K expan- 
sion for this job. 

If you are familiar with the operation of the ML monitor, 

please skip ahead to the specifics below. 

Vou are about to type in about 2500 characters worth of 
'^hexadecimal ' numbers. In addition to the digits from zero 
to nine, the alphabetic characters from A-P represent num- 
bers from ten to fifteen. These characters, and three instruc- 
tions, will be all that are used to enter our program. You 
don't have to understand the process—just type in the 



characters exactly. It's not very exciting, but don t be too as sliown in the tables. The "x" characters stand for !he 

intimidated by the "funny'^ display, other two "dieits'^ of the address in the leftmost column. 



Enter the machine language monitor program : 

TiNVMON/SUPERMOK FOR VIC - LOAD and RUN the 

program, 

PET/CBM - Type '^SYS1024'^ and hit "RETURN"^ . 

VICMON Cartridge - ''SYS 6H096'^ or '^SYS 10*4096" 

(depending on version you have), then type "RETURN" . 

NOTE: If you arc working on the unexpanded VIC you will 

need to follow the alternate instructions in parentheses. 

The cursor will be flashing next to a period character ( "," ), 
Type the entry starting at the current cursor position: 



-M 0580 05C0 



td 



RETURN" 



.M 1180 1100} 



Several lines should appear on the screen, much like the 
"memory-dump^' which accompanies this article. A four- 
"digit" quantity called an "address'^ leads off a line, and 
either eight or five columns of two- "digit" values appear 
alongside- 



If you are working on the unexpanded VIC, the sequence of 
addresses is: 

llxx-12xx-l,3xx-14xx-15xx~16xx 

You will have to type these pairs of characters in place of the 
leading two shown just above. 

With that tEisk complete, we arc ready to preserve this work 
on tape. So type: 



.S "VIC A1D,ML" .01 .05S0.0A8G 



<i 



RETURN" 



(or ,S VIC AID. ML" ,01,1180.1686 "RETURN" 



Mount a blank tape, and follow the instructions. Save a 
second copy, for safely. 

Exit the ML monitor, with: 



X 



^iT^r'^ 



RETURN" 



Look at the tables of values in the article. They show eight 
rows of these addresses. Note that the first ''block" has [he 
address "0580" , which matches the first address just above. 
The first row of the next table shows "05C0". which is \he 
second (or ending) address just above. 

Your mission is to type in the matching values from the 
article, in place of the two-"digii" values you see on the 
screen. 



VERIFY the program normally before going any further. 

Now comes the easy part. Type "NEW", Ihen the BASIC 
listing. Enter this exactly, without including any extra text. 
Save this as "VIC AlCBAS" and VERIFY it. 

Finally LOAD "VIC AID. Mi;' and SAVE "VIC AID.REU' on 
another blank tape. Both the BASIC pari and tlie machine 
language pari have been S.AVRd together. 



Remember to hit '^RETURN^' at the end of each screen lino, 

or the changes won't be made, Check-Out 



Double-check the values youVe typed. It's not easy to find 
anerror later on."^ 

Look at the next block of values. Type in the start/end 
addresses to display: 



.M 05C0 0600 



4C 



RETURN" 



(.Ml ICO 1200} 



Type in the values required and go on with the rest of the 

blocks. 

You will use addresses ranging from; 



We are going to check out the machine language using a 
"checksum" method. Type in "NRW" before [proceeding. 
Now enter the following program: 

10 i = 0"":'rem(i = 3072 for unexpanded VIC) 

20 t = 0;forj= 1408 + i to2741 +1 

30 t = t + peek{j) 

40 iiexl j 

50 print t 

After a few seconds, if the value 161705 appears, you've 
likely got it perfect. Go to Ihe next section. 



05xx-06xx-07xX"08xx-09xx-0Axx 



If not, there's at least one incorrect entry. Change the two 



values in Line 20, using the table below, Re-RUN the 

program and compare ag;^fji5t the value ifi the third column. 

Repeat the process for each row, noting any thai don't 
match. Each row corresponds to two "blocks" from the last 
section. You will have to re-enter the ML monitor to re- 

-check [hose sections thai differ. Re-SAVE the ML parti]] 



Block 



# 



*4 



1- 2 

3- 4 

5- 6 

7- 8 

9-10 

11-12 

13-14 

15-16 

17-18 

19-20 

21 



'alue 1 


Value 2 


C lecksum 


1408 


1535 


15201 


1536 


1663 


17221 


1664 


179 


15925 


1792 


1919 


15117 


1920 


2047 


15565 


2048 


2175 


14141 


2176 


2303 


15840 


2304 


2431 


16276 


2432 


2559 


15152 


2560 


2687 


15 94 


2688 


2741 


6073 



Operation 

The final acid test. ReLOAfO the program from tape and RUN 

it. The screen will clear and a brief summary of the added 
commands will be displayed. The cursor should return 
almost instantly, under the "READY." message. 

If the cursor docs not come back, there is something still 

amiss. All the values appearing in the article were produced 
from a working copy of the program (Honest!), You still have 
option (3) from the Procedure section available. If you do 
send a tape/disk now, include your non-functioning ver- 
sion. I can then do a compare, to see where the error(s) were. 

This has been a massive exercise, and mistakes can easily 
creep in. Your comments are welcome. 



I 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 



11 vie tiny aid" 
ac 



pnnt 

print "§| adapted for vie by:" 
print" david a, hook" 
print "Q f^f>ni 'tiny aid' by:" 
prim jim butterfield" 
print "Bl and ^basic aid^ by:" 
print "bill seller" 



BSTa 



ample commands:" 
hange /?/print*4y'' 
'find.gosub„200-" 

'delete 130-625" 
'number 100,5" 

'kill fvicaid}" 



print 
print 
print 
print 
print 
print 

sys {peek (43)+peek (44)*256 + 383) 



-- \ 



^ 





.: 0580 a5 2d 85 22 a5 2e 85 23 


.: 0740 7a SC:, 7b 20 d7 ca dO Ob 


.:d900 38 60 aO 9d 84 ae aO cO 




,: 0588 a5 37 85 24 a5 38 85 25 


.:0748 c8 98 18 65 7a 85 7a 90 


,: 0908 84 af 38 e9 7f aa aO 00 




.;O590 aO 00 a5 22 dO 02 c6 23 


.:0750 02 e6 7b 20 ra 00 


,:0910 00 ca 10 ee e6 ae ( 02 




,:0598 c6 22 bl 22 dO 3c a5 22 


.:0758 05 20 dc d 00 bO 03 4c 


.:0918 e6 af bl ae 10 f6 30 fl 


■ 


.:05a0 dO 02 c6 23 c6 22 bl 22 


.: 0760 8f fc 00 84 55 e6 55 a4 


;0920 20 6b c9 a5 14 85 35 a5 


■ 


.:05a8 fO 21 85 26 ^5 22 dO 02 


.:0768 55 a6 31 a5 32 85 8b bl 


:0928 5 85 36 20 k ce 20 6b 


■ 


: a^bO c6 23 c6 22 bl 22 8 65 


;0770 7a fO d8 dd 00 00 02 dO 


: 0930 c9 a5 4 85 33 a5 15 SS 


.:U5b8 24 aa a5 26 65 25 48 a5 


: 0778 ed e8 c8 c6 8b dO f1 88 


: 0938 34 20 8o c6 20 ca ff 00 




:05c:0 37 dO 02 c6 38 c6 37 68 


:0780 84 Ob 84 97 a5 49 fO 5b 


;0940 20 ca ff 00 dO 21 20 ac 




:05(:S 91 37 8a 48 a5 37 dO 02 


:0788 20 fO d 00 a5 34 38 e5 


; 0948 ff 00 20 ca ff 00 20 ca 




:05dO cG 38 c6 37 68 91 37 18 


; 0790 32 85 a7 fO 28 c8 fO ca 


: 0930 ff 00 dO 03 4c 8f fc 00 




;05d8 90 b6 [:9 df dO ed a5 37 


: 0798 bl 7a dO f9 8 98 65 a7 


: 0958 20 ca ff 00 a5 63 91 7a 




; 05e0 85 33 ar> 38 85 34 6c 37 


: 07a0 c9 02 90 40 c9 4b bO 3c 


:0960 20 ca ff 00 a5 62 91 7a 




: U5e8 00 aa aa aa aa aa aa aa 


:07a8 a5 a7 lO 02 c6 8b 18 65 


: 0968 20 b7 f 00 fO e2 20 ca 




: UJjiU aa aa aa aa aa aa aa aa 

^\ r^ Ji J—. 


:07b0 Ob 85 97 bO 05 20 24 fe 


:O970 ff 00 20 ca ff 00 20 ca 


,; Ubra aa aa aa aa aa aa aa aa 


: 07b8 00 fO 03 20 Oc fe 00 a5 


:0978 ff 00 c9 22 dO Ob 20 ca 




: 0600 df ad fe ff 00 85 37 ad 

^^k ^^m ^r^ m ^m ^m ^m 


: 07cO 97 38 e5 34 a8 c8 ^S 34 


: 0980 ff 00 fO c5 c9 22 dO f7 




: 0608 ff ff 00 85 38 a9 4t: SS 


: 07c8 fO Of 85 8c a6 33 x 00 


: 0988 fO ee aa fO be e9 a2 




:0610 7c ad d9 fb 00 85 7d ad 


:07dO 00 02 91 7a e8 c8 c6 8c 


: 0990 04 dd d4 ff 00 fO 05 ca 




: 06 8 da fb 00 85 7e 4c 8f fc 


:07d8 dO f5 18 ar> 2d 65 a7 85 


: 0998 dO f8 fO dd a5 7a 85 3b 




:0620 00 fO 03 4c 08 cf a9 c9 


: 07e0 2d a5 2e 65 8b 85 2e a5 


: 09a0 a5 7b 85 3c 20 73 00 00 




: 0628 85 7c a9 3a 85 7d a9 bO 


: 07e8 7a a6 7b 85 5f 86 60 a6 


: 09a8 :>0 d3 20 6b c9 20 51 ff 




: 0630 85 7e 60 db f > 00 85 8b 


:07f0 43 a5 44 20 3d e 00 20 


-^ ^^ -J -^ r_r ^_n_x j_f -.j t;_r x XX 

: 09b0 00 a5 3c 85 7b a5 3b 85 


■.0{):iH 86 97 ba be! 01 01 c9 8c 


:07f8 el f a9 00 00 85 c6 a4 


: 09b8 7a aO 00 00 a2 00 00 bd 


n 


:0640 10 dO 02 a4 8c a6 97 


: 0800 97 4c f2 fc 00 a4 7a c8 


:09c0 00 00 c9 30 90 11 48 


ri ■ 


: 0648 a5 8b c9 3a bO 03 4c 80 


;0808 94 31 a9 00 00 95 32 b9 


; 09c8 20 73 00 00 90 03 20 82 


■■ 


.0650 00 00 60 )d 02 01 c9 c4 


0810 00 00 02 15 c5 8b fO 


;09d0 f 00 68 aO 00 00 91 7a 


■■ 


■0658 dO cd a5 8b 02 e6 7a .: 


■0818 05 f6 32 c8 dO f2 84 7a ,: 


: 09d8 e8 dO e8 20 73 00 00 bO 


■■ 


0660 84 8c a2 00 00 86 a5 ca .: 


0820 60 c9 ab fO 04 c9 2d dO .: 


:09e0 08 20 91 ff 00 20 79 00 


■■ 


0668 e8 a4 7a b9 00 00 02 38 


0828 01 60 4c 08 cf 90 05 fO 


: 09e8 00 90 f8 c9 2c b8 dO 


■■ 


0670 fd d9 ff 00 fO 3 c9 80 


0830 03 20 a6 fd 00 20 6b c9 


: 09 96 20 ac ff 00 20 ca ff 


.:(1678 fO 13 £-6 a5 eS bd d8 ff .: 


0838 20 13 c6 20.79 00 00 fO .; 


: 09f8 00 20 ca ff 00 dO 08 a9 


T ■ 


0680 00 10 fa bd d9 ff 00 dO 


0840 Ob 20 a6 d 00 20 73 00 


OaOO 85 63 S5 62 30 0^ 20 


n ■ 


0688 c4 fO bf e8 c8 dO eO 84 .: 


0848 00 20 6b c9 -:0 eO a5 14 ,; 


0a08 ca ff 00 c5 14 dO Of 20 


J L 


0690 7a a5 a5 Oa aa bd f5 ff ,; 


0850 05 15 dO 06 a9 ff 85 4 .: 


Oa ca ff 00 c5 15 dO Ob 20 


" 


0698 00 48 bd f4 f 00 48 20 .: 


0858 85 15 60 20 ca ff 00 85 .: 


Oa 8 dl dt a9 20 4c d2 ff 20 


L ^ 


06a0 e9 fb 00 4c 73 00 00 20 .: 


0860 43 20 ca ff 00 85 44 38 .: 


Oa20 ca ff 00 20 b7 ff 00 fO 


h r 


06a8 b2 fd 00 a5 5f a6 60 85 


0868 a5 4 e5 43 a5 15 e5 44 


0a28 (2 20 a2 f 00 e6 97 20 


L + 


06b0 24 86 25 20 13 c6 a5 5f 


0870 60 a5 7a 85 22 a5 7b 85 


0a30 2-1 fe 00 c6 2d dO 02 e6 


.:06b8 a6 60 90 Oa aO 01 bl 5f .: 


0878 23 a5 2d 85 24 a5 2e 85 ,: 


0a38 2e 60 20 a2 00 c6 97 




06c0 fO 04 aa 88 bl 5f 85 7a 


0880 25 60 a5 22 c5 24 dO 04 


0a40 20 Oc fe 00 a5 2d dO 02' 


■■ 


06c8 Se 7b a5 24 38 e5 7a aa 


0888 a5 23 c5 25 60 a4 Ob c8 


Oa48 c6 2e c6 2d 60 20 fO fd 


n ■ 


06dO a5 25 e5 7b a8 bO c 8a 


0890 bl 22 a4 97 c8 91 22 20 .: 


0a50 00 aO 00 00 84 Ob 84 97 


■■ 


06d8 18 65 2d 85 2d 98 65 2e 


0898 c 00 dO 01 60 e6 22 .: 


0a58 60 a5 35 85 63 a5 36 85 


4 r 


06e0 85 2e aO 00 00 bl 7a 91 .: 


08a0 dO ec e6 23 dO e8 a4 Ob .: 


^m ^m ^^ ^^ B B B ^ ^m m^ m ^^^h ^^b ^i b m^ m 

0a60 62 4c 8c c6 a5 63 18 65 


■' 


06e8 24 c8 dO f9 e6 7b e6 25 .: 


08a8 b 24 a4 97 91 24 20 01 .; 


0a68 33 85 63 a5 62 65 34 85 


■' 


0610 a5 2e c5 25 bO ef 20 33 .: 


08b0 fe 00 dO 01 60 a5 24 dO 


Oa70 62 20 ca 00 cO fb 60 


.:06f8 c5 a5 22 a6 23 18 69 02 .: 


0Sb8 02 c6 25 c6 24 4c 24 fe .; 


Oa7S aO 00 00 e6 7a dO 02 e6 




0700 85 2d 90 01 e8 86 2e 20 


08cO 00 aO 00 00 84 a5 84 Of .: 


0a80 7b b 7a 60 89 8a 8d a7 


■■ 


0708 59 c6 4c 67 e4 20 7c c5 


08c8 20 cd dd a9 20 a4 a5 29 


Oa88 43 48 41 4e 47 c5 44 45 


■■ 


0710 20 73 00 00 85 8b a2 00 .: 


OSdO 7f 20 d2 ff c9 22 dO 06 .: 


* ^"^ * ■ ^^ "-^ AX ^ L^ 

OaOO 4c 45 54 c5 46 49 4e c4 


" 


0718 00 86 49 20 8c fd 00 a5 


08d8 a5 Of 49 ff 85 Of c8 bl .: 


0a98 4b 49 4c cc"4e^ 55 4d 42 


" 


0720 a5 c9 00 00 dO 07 a2 02 


08e0 5 fO 19 10 ec c9 ff fO .: 


OaaO 45 d2 00 00 a5 fc 00 41 


" 


0728 m 49 20 ^c fd 00 20 73 ,: 


08e8 e8 24 Of 30 e4 84 a5 20 


0aa8 c 00 a5 fc 00 c6 fb 00 


-H 


0730 00 00 fO 03 20 fd ce 20 .: 


08f0 7c fe 00 c8 bl ae 30 d6 


OabO 98 e 00 ac fb 00 aa aa 


■H 


0738 b2 fd 00 a5 5f a6 60 85 .: 


08f8 20 d2 f dO f6 20 d7 ca 


0ab8 aa aa aa aa aa aa aa aa 



^ 



ASCII Modem Ds s 




For ¥!C MS^232 



One very practical use of the Commodore VlC-20 is in 
communicaEions, Given the sticker price of the VIC an^d a 
VlCModem (or a standard RS-232 modem with the VIC 
RS-232 adapter}, you and your budget will find this rapidly 
growing pastime an eccnomica! introduction to computing. 

The VIC has a bnitt-in RS232 interface. But don't go looking 
for a standard RS-232 connector (that trapezoid shaped 
connector much like The Transactor masthead border) be- 
cause you won't find one. Commodore decided they could 
get some more mileage out of the User Port (the card-edge 
connector on the far right looking from the back) and make 
it double as KS-232 since it's unlikely both will be in use 
simultaneously. There's just one catch. The User Port is 
driven by a TTL device (known as the 6522 Versatile 
Interface Adapter}, so output levels range from to 5 volts. 
RS-232 modems require a -12 to + 12 volt range, so the VIC 
RS-232 adapter (VIC lOllA) is required. The VlCModem 
also connects to the User Port, but it has the adapter built in. 

The VIC also has built-in ROM routines for transmitting and 
receiving characters over the RS-232. These routines do the 
actual handshaking of data and are invisible to the user. 
However, they don't do everything. Some BASIC is still 

riecessar\' to gel them started, interact, and then shut them 
off when no longer needed. 

When a file is OPBNed to device 2, the RS-232 port, 2 



reser\'0]rs or '^buffers" are automatically allocated; one for 
storing characters from the keyboard and the other for 
characters coming in from the modem. Both buffers arc 256 
bytes long and are placed '^back-to-back^' in the topmost 
512 bytes of RAM. The OPEN command also seals off this 
area of memory so that nothing else (like strings} will try to 
use it. If you plan to use RS-232, the OPEN should occur 
very early in your program. Otherwise, any strings that are 
built at the top of memory will get clobbered when the 
OPEN command allocates these buffers. Also make sure 
your program has a free space of at least 512 bytes (prefera- 
bly more for variables and arrays) or you'll suddenly find 
that the end of your text has been gobbled! 

Two other rather noteworthy events occur upon opening 
the RS-232. First, the serial port is disa^jled. That's right, no 
more disk or printer. If that wasn't enough, the cassette port 
is also benched. It seems that the VIC devotes quite a bit of 
its interface internals to supporting RS-232. Disk and 
printer logging is ,still [possible, however it would require 
closing down the RS-232 while they are serviced. These 
features would stow down a BASIC program to the point 
where characters might be lost. A machine language driver 
would be necessary for a more sophisticated terminal pro- 
gram. 

The transmit/ receive routines begin working when charac- 
ters start appearing in either one of these buffers. Usually 



only one buffer sees aclivity at any one lime. Rarely do both 
ends of a communications link want to tall; at the same time. 
So, after you send characters, you'll be waiting for a re- 
sponse. Don't wony about characters from both ends mix- 
ing together on any single line. It probably won't happen. 

Each buffer has 2 one-byte pointers that are stored from 
$029R to $029E. A one-byte pointer is more accurately 
referred to as an 'Index', but we'll use the term ^'pointe/^ for 
better readability and clarity. 

The Input or Receiver Buffer 

This one collects characters coming from the modem. The 
first pointer (S029B) tells the t/r routines where to store the 
next incoming character and the other ($029C) tells BASIC 

where il can GET"^ its next character from. Initially, the 2 
pointers start out at the same place. At this point a GET'*' 
would return a null string into the variable. When a charac- 
ter arrives at the port, it's stored in the receiver buffer and 
the pointer at $029B is incremented. Now there's a gap 
between the two pointers. The next GET"^ would pull this 
character out of the buffer and $029C is incremented, 
making both pointers equal again. Essentially, one pointer 
is chasing the another in an attempt to keep the gap as small 
as possible, much like a race between two vehicles on a 256 
unit track- 
Thus, the ideal order of events is, , . 1 character comes in, 
BASIC gets it out, another comes in, and so on. But such is 
not always the case. At very high transfer speeds (which the 
ViC is prepared to handle), BASIC can potentially fall be- 
hind. A character comes in, and another, and another, and 
BASIC may only pull one out for every 2 or 3 that come in. 
This situation is OK until there is 255 characters waiting for 
BASIC retrieve. When the next one arrives, $029B is 
incremented, and the 2 pointers become equal ($092B has 
^lapped" $029C). Those 256 characters are now lost be- 
cause it appears to the VIC that there are no characters in the 
buffer. 

At 300 baud, approximately 30 chars per second, (a very 
popular speed in the micro environment} this problem is not 
likely to arise unless there is too much BASIC between 
sub,sequent GET^'s. If a continuous stream of data is slam- 
ming into the port, too many IF statements might slow down 
BASIC enough that entire buffers get dropped. Short incom- 
ing bursts should be no problem though. As long as the 
strings are less than 256, theyll wait in the buffer comfort- 
ably until BASIC gets them out- 



The Output or Trauasmitter Buffer 

Characters are sent from this buffer which operates much 
the same way as the receiver buffer. Once again, 2 pointers 
control the flow of data in and out of the buffer. The first, at 
$029D, tells the transmit/receive routines where to grab 
another character for sending. The other pointer, at $029£, 
indicates where the PRINT* command will place subse- 
quent characters. As they arrive in the buffer, this pointer is 
incremented, and as they get sent, $0290 is incremented. 
So. like the Input buffer, the t/r routines arc constantly 
trying to eliminate any gap between the two pointers. 

Unlike the input buffer, the t/r routines won't allow the 
output buffer to overflow. If PRINT* tries to place more than 
254 characters in the buffer, BASIC will wait until some of 
them are sent before letting any more pile up. Since most 
often the keyboard will be the main source of output 
characters, it's unlikely that the output buffer will see fhis 
condition. A send-from-disk feature could possible fill up 
the transmitter buffer, but, as mentioned earlier, the serial 
port is disabled by the RS-232, so disk is inaccessable 
anyways. A machine code driver would need to close the 
RS-232, bring in some disk material, re-open communica- 
tions and continue from there. One would also have to 
incorporate certain precautions to lake care of the buffer 
space that gets de-allocated and then re-allocated during 
this procedure. A garbage collect during disk/printer access 
might put some vital strings up there that would eventually 
be destroyed. As you can see. an all-encompassing VK' 
modem driver would require some careful thought. 

AliasST - - '--'- 

The status variable ST takes on a whole new meaning 
during RS-232 use. Bits within ST are used to flag various 
transmission errors but if everything seems to be going OK, 
an ST test is often unecessary. If you'd like to insert one, a 
simple test for STOO will indicate an error, otherwise 
smooth sailing. ST is cleared to zero immediately after being 
read, so if you want to know what it was, you'll need to trap 
it into some other variable. 

Closing Up 

A simple CLOSE brings your VIC back to normal. The space 
eaten up by those buffers is returned (try ?FRE(0)), the serial 
port comes back, and the cassette works once more. But 
before you do. Commodore suggests this line just to make 
sure everything's been sent: 



140ifpeek(37151)and64then 140 



More VIC RS-232 Info 

The VIC Programmers Reference Guide has a section an 
RS-232. Details on control register and command register 
setup is covered along with some more RS-232 facts. 

COMPUTE^s August '82 Issue 27 has a article worth looking 
up by Jim Butterfield and Jim Law. For those of you getting 

bored with details, here's what we've been leading up to. 



ASCU Terminal Software 

Below is a program that will get you started. Simpler ones 
are around, but this one talks true ASCII, For a more detailed 
description of the program, take a look at the article titled 
Translation Arrays in this issue. 



100 gosub200 

no get*K a$ : if a$ then print chr$(f(asc(a: 

120 get aS ; if a$ then print*! chr$(l(asc(a$))); 

130 if a$<>'!" goto 110 : remorsubst. any char to end prog 

140 ifpeek{37151)and64then 140 

1 50 close 1 

1 60 print chr$(9) ; rem enables Shift/CBM 

170 end 

200 open 1, 2, 3, chr$(6)+ chr$(l60) : rem sets 300 baud 

210 print chr$[14) ; rem sets upper/lower case 

220 print chrS[8) : rem locks out case change by Shift/CBM 

230 dimt(255).f(255) 



240 fori = 32 to 64 


: t(j = : 


next 


250 fori =65 to 90 


:t() = j + 32: 


next 


260 fori = 91 10 95 


:ti)-i : 


. next 


270 forj = ]92lo21B 


:t(j)-j-128: 


. next 


280 t(13}=13:t(20) = 8 




290 rem add extra functions here 


- 


300 for i - 0to255 :if t(i) tfien (t{j)) = 


= i:f(ttj)+ 128) = ]; next 


310 return 







-^ 



1. 



The Commodore 64: A Preliminary Review 



In a world where new microcomputers seem to be appear- 
ing faster than federal buds^els, it^s hard to decide when to 
buy. That fear of obsolescence is very real when YOUR 

money is on the line. But alt computers will eventually 
become obsolete, so waiting for a better one is perpetual 
Therefore, you must determine which computer will do 
ever>'thing you desire at a price that suits your budget. 
That's a pretty tail order, because you might find one that 
does everything, but a second mortgage on your house was 
not in your plans. Alternately, that inexpensive machine 
you Ve had your eye on might only give you room for a 
simple mortgage program and you find yourself faced with 
expanding not on]y the computer but your investment too. 
Finding a compromise can be tough. 

If you've decided that you're definitely in the market for a 
micro, check out the Commodore 64: Commodore's newest 
entry and, without a doubt, their best so far. Although it 
looks like a VIC from the outside, inside it s a whole new 
story. 

Tfie 64 already has 64K of RAM (hence the name), so 
^'memory expansion" can be scratclted off your shopping 
list. Of course, not all 64K is available simultaneously. 

Memory is split into sections which must be switched in or 
out as required. More on 64 bank-switching in a later issue. 

Like the VIC, it comes in that ^Vedge" shaped plastic 



housing, but in a colour that looks like a cross between 

beige and grey. Unlike the VIC, it has a 40 column by 25 line 
screen output and the modulator is contained inside the 
housing where it belongs. The keyboard feels a little nicer 
too, but that's only a personal opinion, possibly influenced 
by the order in which they came out. 

Standard Design Features ■ 

• Cartridge slot for games, etc., compatible willi the new 
MAX machine. 

• 8bil user port 

• Serialbusfordisk,printer, etc,.(likeon the VIC) 

• Cassette tape port 

• Composite video output and modulator output ports 

• Audio output jack 

• 3SK available for BASIC text 

■ 2 built-in Analog to Digital converters 

• 16 colours 



And there's more. . • 

Several new chips have been used in the 64's design. A new 
microprocessor, the MOS 65 10. makes its debut. The 65 1 is 
still an 8 bit machine, but internal bank swilching capabili- 
ties allow for the bonus RAM. Other features include: pro- 



^•^rj^-r^. 



grammable slack pointer, variable length slack, an 8 bit 
bi-directional I/O port and it's software compatible with 
6502 programs. 

The 6566 Video Display Chip 

This one's a beauty! Everything you ever wanted to do in 
movable graphics. . . and then some. The 6566 has the 
capability of moving definable shapes, or more commonly 
known as ''sprites" , Up until now, sprites have only been 
avaifable on machines like arcade games, Pacmans, galaxi- 
ans, frogs, etc. are all done using sprites. 

Thc 64 allows 8 sprites to be displayed simultaneously [with 
more by using "raster compare" which we^U explain in a 

later issue). You simply define a shape somewhere in mem- 
ory', select a ,sprite number, point that sprite at the shape, 
and turn it on. Like magic that shape will appear instantly 
on the screen. Then by merely giving X and Y coordinates, 
the shape moves around the screen by itself! No more 
erasing the shape at its previous location, no more updat[ng 
.screen RAM and colour tables, , , everything's done in 
hardware! 

Other sprite feature,^ include: hori^ontai arid/or vertical size 

expansion; hi-res or multi colour sprites; collision detection 
between sprites, or sprites and background; sprite/ 
backi^round display priority (sprites can appear in front of 

background or disappear behind background). 



The 6526 Complex Interface Adapter (CIA) 

The 64 comes with 2 of these. The 6S2Q's replace the 6520 
and 6522 of earlier machines. Each chip has an 8 bit shift 
register for serial I/O, 24 clock with programmable alarm, 8 
or 16 bit handshaking on read or write, 2 independent 16 bit 
interval timers and the capability for sourcing or sinking 2 
standard TTL loads. I've been told that the external input to 
the SID can only process signals through the filter section 
which eliminates several possibilities. However, the 6526 
has two analog to digital converters. By connecting external 
sources here, audio signals can be sent through all sections 
of the SID which will provide for ,some rather interesting 
experimentation. The A/D^s will also eliminate a lot of the 
analog interfacing problems that have plagued us in the 
past. 

Accessories 

Commodore intends to use many of the same accessories for 
the 64 as are available now^ for the VIC. VIC joysticks, 
paddles, disk drive, [jrinter, modem, RS-232 c:artndge and 

C2N cassette are all compatible with the 64. About the only 
difference is the slot for things like games and utility car- 
tridges. It's been changed to a vertical pin type connector as 
opposed to the card edge type connector on the VlC-20, 
This is not only less space consuming, but promises to be a 
little more rugged as the contacts appear to be less suscepti- 
ble to friction wear. 



Other 6566 features include: smooth scrolling horizontally 
and vertically; 1 6 colours with 3 grey shades; bit map mode 
for hi-resolution display; I/O ports for 2 joysticks or 4 
paddles or light pen input. 

The 6581 Sound Interface Device (SID) - = ^ 

The SID is virtually a synthesizer on a chip. Jt has 3 
independently controllable voices, each with a 9 octave 
range and 4 waveforms including square, triangle, sawtooth 
and noise. Each voice also has a programmable envelope 
generator and volume control with a master volume control 
for ail three voices. The SID has some other very sophisti- 
cated features such as oscillator synchronisation, ring mod- 
ulation, filter resonance control, and it even has an external 
input for processing signals from other sources such as an 
electric guitar. 

In all, the 6581 can produce sound with better quality than 
some of the instruments it can simulate. With a little pro- 
gramming, voice synthesis shouldn't be too much trouble 

either. 



Future accessories, according to Commodore, include a 
Z-SO plug-in card, soft-load modules for BASIC 4.0. Pascal. 
Forth, and Pilot, extended BASIC cartridges for graphics and 
sound support, and monitor type cartridges for machine 
language exercises. 

Some Comments 

This time Commodore's done it right! They placed the 
screen RAM immediately following zero page, the stack, and 
RAM allocated for the cassette buffer. This leaves a 3SK 
stretch of uninterrupted memory w"hich has been set up for 
BASIC text- Unlike the VIC, the screen won't be moving 
around on you, but like the VIC, the LOAD command will 
adjust for the new start of text addre,ss, $0800. 

The character generator is set up like in PET/CBMs, It takes 
no address space away from the processor unless you want 
to modify it. Using a very simple program, it can be transfer- 
red to RAM {where it wil! require address space) and a 
character pointer invokes the new location. 

The 64 has 16 colours, 8 more than the VIC, Commodore 



had some trouble with colour quality on TV and monitor 
output, but this has been cleared up in the release versions. 
It has three distinct grey shades that come up beautifully 
even through modulated output to a TV, They also have an 
element of brilliance about them that make them appear 
more like colours as opposed to just shades. 

I 

The Control key is always a nice feature on any machine^ 
The VIC Control key apparently had some problems when 
used in a communications environment, but this is all 
cleared "up for the 64. RUN/STOP-RESTORE will still get 
you out of just about any crash, and changing from Upper/ 
Lower case to Graphics mode is a snap with the shifted 
Commodore key at the lower left corner of the keyboard, 8 
Function keys are included {4 plus 4 shifted) and I've been 
informed that a new method of keyboard scanning will 
allow the Control and Commodore keys to also be used as 
shift keys. Combinations of CTRL, Shift, and the Commo- 
dore key might result in as many as 32 effective function 
keys! 



Summary 



The Commodore 64 is superior in everi' aspect over the VIC. 
The VIC still has its applications though so don't deem it out 
for the count yot. But even at double the price of the VlC-20, 
the 64 seems to be the logical choice. Programmers will find 
the 64 a pleasure to work with. Games? A cinch on this 
machine, , . and you can bet theyll be absolutely dazzling 
with the added graphics and sound features. 

Support for the 64 will probably reach unpreeedeuted lev- 
els. Besides being capable of nearly every PET feature seen 
to date, the added features of this machine will have 
programmer/writers just crankin' out material. You can 
count on at least one 64 related arficle in every magazine 
with CBM content. The Transactor will be no exception, but 
with a difference. We'll let you know wtien a VIC/PET/CBM 
application will work on a 64. See the article this issue on 
VIC Modem Driver, and 64 memory maps appear at the 
back. 



Commodore opted to stay with the serial bus for interfacing 
peripherals. Unlike IEEE parallel, bits are delivered in serial 
which reduces communications speed considerably. This 
reduction isn't really noticeable with the printer, but disk 
access is .somewhat hampered. Fortunately there will be an 
IEEE interface card available for those that already own 
IEEE peripherals (see the New Products section for informa- 
tion on RTCs V-Link). 



Forsomereasontheydecided to install BASIC 2,0 in the 64 
which doesn't have all those nice disk commands like 
Catalog, Rename. Copy, etc. That's not too hard to live with, 

but the problem with BASIC 2, as you'W recall, is the nasty 
realm of "garbage collection". Recapping, garbage collection 
occurs when there isn't enough unused memory to accom- 
modate a new string generated by BASIC. At this point the 
operating system decides it must perform a garbage collec- 
tion. The system re-packs all good strings at the top of 
memory, effectively throwing away any old ones that are no 
longer needed. During this process, the machine will appear 
to "hang-up". The delay will var\' depending on several 
conditions present at the time, but on 32K BASIC 2 PET/ 
CBM's, there were reports of garbage collections taking 
anywhere from 20 seconds to 20 minutes. As mentioned 
earlier, Commodore intends to make BASIC 4,0 available on 
a plug-in cartridge, but this will probably contain the disk 
commands only. Fortunately there are a number of ways to 
avoid this problem which we'll cover in a future article, but 
BASIC 4.0 would have been much better suited for the 64. 
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0000 







0001 




1 


0003 


-0004 


3-4 


0005 


-0006 


5-6 


0007 




7 


0008 




8 


0009 




9 


OOOA 




10 


OOOB 




!1 


oooc 




12 


OOOD 




13 


OOOE 




14 


OOOF 




15 


00 




16 


00 1 




17 


0012 




18 


0013 




19 


0014 


-00 5 


20-21 


0016 




22 


0017 


-00 18 


23-24 


00 9 


-0021 


25-33 


0022 


-0025 


34-37 


0026 


-002A 


38-42 


002 B 


-002C 


43-44 


002 D 


-002E 


45-46 


002 F 


-0030 


47-48 


0031 


-0032 


49-50 


0033 


-0034 


51-52 


0035 


-0036 


53-54 


0037 


-0038 


55-56 


0039 


-003A 


57-58 


003B 


-003C 


59-60 


003D 


-003E 


61-62 


003 F 


-0040 


63-64 


0041 


-0042 


65-66 


0043 


-0044 


67-68 


0045 


-0046 


69-70 


0047 


-0048 


71-72 


0049 


-004A 


73-74 


004B 


-004C 


75-76 


004D 




77 


004E 


-0053 


78-83 


0054 


-0056 


84-86 


0057 


-0060 


87-96 


0061 




97 


0062 


-0065 


98-101 


0066 




102 


0067 




103 


0068 




04 


0069 


-006E 


105-lIC 


006F 




111 



Chip directional register 

Chip I/O; memory & tape control 

Float- Fixed vector 

Fixed-Ftoat vector 

Search character 

Scan -quotes flag 

TAB column save 

= LOAD. UVERiFY 

Input buffer pointer/'^ subscrpt 

Default DIM flag 

Type: FF = stnng, OO^nurneric 

Type: 80 = integer. O0 = floating point 

DATA scafi/LIST quote/ memry flag 

Subscript/FNx flag 

= INPUT;$40 = GET;$98 = READ 

ATN sign/Comparison eval flag 

Curreat 1/0 prompt flag 

Integer value 

Pointer: temporary string slack 

Last temp string vector 

Stack for temporary strings 

Utility pointer area 

Product area for multiplication 

Pointer; Start-of-Basic 

Pointer: Start -of-Variables 

Pointer: Start -of- Arrays 

Pointer: End-of-Arrays 

Pointer: String-storage(moving down 

Utility string pointer 

Pointer: Li mit-of- memory 

Current Basic line number 

Previous Basic lino number 

Pointer: Basic statement for CONT 

Current DATA line number 

Current DATA address 

Input vector " " / 

Current variable name 

Current variable address 

Variable pointer for FOR/NEXT 

Y-save; op-save; Basic pointer save 

Comparison symbol accumulator 

Misc work area, pointers, etc 

Jump vector for hinctions 

Misc numeric work area 

Accum*!: Exponent 

Accum'^1: Mantissa 

Accum^l: Sign 

Series evaluation constant pointer 

Accum'^1 hi-ordcr (overflow) 

Accum^2: Exponent, etc. 

Sign comparison, AcC^I vs ''2 



0070 




112 


0071 


-0072 


113-114 


0073 ■ 


-008A 


115-138 


007A ■ 


-007B 


122-123 


008B 


-008F 


139-143 


0090 
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0091 




145 


0092 
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0093 




147 


0094 




148 


0095 


. 
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0096 




150 


0097 




151 


0098 
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0099 




153 


009A 
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009B 
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009C 
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009D 
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009E 




158 


009F 




159 


OOAO 


-00A2 


160-162 


00A3 




163 


00A4 




!64 


00 A5 




165 


00A6 




166 


00A7 




167 


00A8 




168 


00A9 




169 


OOAA 




170 


OOAB 




17i 


OOAC 


-OOAD 


172-173 


OOAE 


-OOAF 


174-175 


OOBO 


-OOBl 


176-177 


O0B2 


-00B3 


178-179 


00B4 




180 


0OB5 




181 


00B6 




182 


00B7 




183 


00B8 




184 


00B9 




185 


OOBA 




186 


OOBB 


-OOBC 


187-188 


OOBD 




189 


OOBE 




190 


OOBF 




191 


ooco 




192 


ooci 


-O0C2 


193-194 


00C3 


-00C4 


195-196 


O0C5 




197 


00C6 




198 


00C7 




199 


0OC8 




200 


00C9 


-OOCA 


201-202 


OOCB 




203 



Accum^l lo-order (rounding) 

Cassette buff 1 en/Series pointer 

CHRGET subroutine; get Basic char 

Basic pointer (within subrtn} 

RND seed value 

Status word ST 

Keyswitch PIA: STOP and RVS flags 

Timing constant for tape 

Load -0, Verify =1 

Serial output: deferred char flag 

Serial deferred character 

Tape EOT received 

Register save 

How many open files 

Input device, normally 

Output CMD device, normally 3 

Tape character parity 

Byte-received flag 

Direct = $SO/RUN = output control 

Tp Pass 1 error log/ char buffer 

Tp Pass 2 err log corrected 

Jiffy Clock HML 

Serial bit count/EOl flag 

Cycle count 

Countdown,tape write/bit count 

Tape buffer pointer 

Tp Wrt Idr count/Rd pass/inbit 

Tp Wrt new byte/Rd error/inbit cnt 

Wrt start bit/Rd bit err/stbit 

Tp Scan;Cnt;Ld; End/byte assy 

Wr lead length/Rd checksum/parity 

Pointer: tape t^r, scrolling 

Tape end adds/End of program 

Tape timing constants 

Pntr: start of tape buffer 

! =Tp timer enabled; bit count 

Tp EOT/RS232 next bit to send 

Read character error/outbyte buf 

* characters in file name 
Current logical file 
Current secndy address 
Current device 
Pointer to file name 

Wr shift word/Rd input char 

* blocks remaining to Wr/Rd 
Serial word buffer 

Tape motor interlock 
1/0 start address 
Kernel setup pointer 
Last key pressed 

* chars in keybd buffer 
Screen reverse flag 
End-of-line for input pointer 
Input cursor log (row, column) 
Which key; 64 if no key 
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00D3 
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O0D4 
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-00F4 


243-244 


OOFS 


-00F6 


245-246 


O0F7 
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247-248 


00 F9 


-OOFA 


249-250 


OOFF 


-OlOA 


256-266 


0100 


-013E 


256-318 


0100 


-OlFF 


256-511 


0200 


-0258 


512-600 


0259 
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0263 
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-0276 
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0281 
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0285 




645 
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668 


029D 




669 


029E 




670 


02 9F 
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= flash cursor 
Cursor timing countdown 
Character under cursor 
Cursor in blink phase 
Input from screen/from keyboard 
Poinler to screen line 
Position of cursor on above line 
= direct cursor, else programmed 
Current screen line length 
Row where curosr lives 
Last inkey/checksum/buffer 
^ of INSERTS outstanding 
Screen line link table 
Screen color pointer 
Keyboard pointer 
RS-232Rcvpntr 
RS-232 Tx pntr 
Floating to AS(]11 work area 
1'ape error log 
Processor stack area 
Basic input buffer 
Logical file table 
Device * table 
Sec Adds table 
Keybd buffer- 
Start of Basic Memory 
Top of Basic Memory 
Serial bus timeout fla^ 
Current color code 
Color under cursor 
Screen memor\' page 
Max size of keybd buffer 
Repeat all keys 
Repeat speed counter 
Repeat delay counter 
Keyboard Shift/Control flag 
Last shift pattern 
Keyboard table setup pointer 
Keyboard shift mode 
= scroll enable 
RS-232 control rcg 
RS-232 command rcg 
Bit timing 
RS-232 status 
* bits to send 
RS-232 speed/code 
RS232 receive pointer 
RS232 input pointer 
RS232 transmit pointer 
RS232 output pointer 
IRQ save during tape 1/0 
CIA 2 (NMl) Interrupt Control 
CIA 1 Timer A control log 
CIA ! Interrupt Log 
CIA 1 Timer A enabled flag 



1*- 



- 



02A5 




677 


Screen row marker 


02C0 


-02FE 


704-766 


(Sprite 11) 


0300 


-0301 


768-769 


Error message ink 


0302 


-0303 


770-771 


Basic warm start link 


0304 


-0305 


772-773 


Crunch Basic okenslink 


030G 


-0307 


774-775 


Prin okenslink 


0308 


-0309 


776-777 


Start new Basic code ink 


030A 


-030B 


778-779 


Get arithme ic element link 


030C 




780 


SYS A-reg save 


030D 




781 


SYS X-reg save 


030E 




782 


SYS Y-reg save 


030F 




783 


SYS status reg save 


0310 


-0312 


784-785 


USR func ion ump 


0314 


-0315 


788-789 


hardware in errupt vector 


0316 


-0317 


790-791 


Break interrupt vector 


03 8 


-0319 


792-793 


NMl interrupt vector 


031A 


-031B 


794-795 


OPEN vector 


031C 


-031D 


796-797 


CLOSE vector 


031E 


-031F 


798-799 


Set-input vec or 


0320 


-0321 


800-801 


Set-output vector 


0322 


-0323 


802-803 


Ros ore 1/0 vector 


0324 


-0325 


804-805 


INPUT vector 


0326 


-0327 


806-807 


Outpu vector 


0328 


-0329 


808-809 


Test-STOP vec or 


032A 


-032B 


810-811 


GET vector 


032C 


-032D 


812-813 


Abort /O vector 


032E 


-032E 


814-815 


Warm star vector 


0330 


-0331 


816-817 


LOAD link 


0332 


-0333 


818-819 


SAVE link 


033C 


-03FB 


828-1019 


Cassette buffer 


0340 


-037E 


832-894 


(Sprite 1 3) 


0380 


-03BE 


896-958 


(Sprite 14) 


O3C0 


-03FE 


960-1022 


(Sprite 15) 


0400 


-07FF 


1024-2047 


Screen memory 


0800 


-9FFF 


2048-40959 


Basic RAM memory 


8000 


-9FFF 


32768-40959 


A ternate: ROM plug-in area 


AOOO 


-BFFF 


40960-49151 


ROM: Basic 


AOOO 


-BPFF 


49060-59151 


Alternate: RAM 


COOO 


-CFFF 


49152-53247 


RAM memory, including al ernate 


DOOO 


-D02E 


53248-53294 


Video Ciiip (6566) 


D400 


-D41C 


54272-54300 


Sound Chip (65S1 S D) 


D800 


-DBFF 


55296-563 9 


Co or nybb e memory' 


DCOO 


-DCOF 


56320-56335 


Interface chip 1 , IRQ (6526 CIA) 


DDOO 


-DDOF 


56576-56591 


Interface chip 2, NMl (6526 C A) 


DOOO 


-DFFF 


53248-53294 


Alternate: Character set 


EOOO 


-FFFF 


57344_65535 


ROM: Operating System 


EOOO 


-FFFF 


57344-65535 


Alternate: RAM 


FF81 


-FFF5 


65409-65525 


Jump Table, Including: 


FFC6 




-Set Input channe 


FFC9 




- Set Output channe 


FFCC 




- Restore default 1/0 channels 


FFCF 




- INPUT 


FFD2 




- PRINT 


FEE] 




- Tes Stop key 


EEE4 




-GET 



(B248) 

{EA31) 
(FE66) 
(FE47) 
{F34A) 
(F291) 
{F20E) 
(F250) 
{F333) 
(F157) 
(FICA) 
{F6ED) 
(F13F.) 
(F^2F] 
(FE66) 
(F4A5) 
{F5ED) 
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AOOO 

AOOC 

A052 

A080 

A09E 

A19E 

A328 

A3 65 

A38A 

A3B8 

A3FB 

A408 

A435 

A437 

A469 

A474 

A480 

A49C 

A533 

A560 

A579 

A613 

A 642 

A65E 

A68E 

A69C 

A742 

A7ED 

A81D 

A82C 

A82F 

A831 

A857 

A871 

A883 

A8A0 

A8D2 

A8F8 

A906 

A928 

A93B 

A94B 

A96B 

A9A5 

AA80 

AA86 

AAAO 

ABIE 

AB3B 

AB4D 

AB7B 

ABAS 

ABBF 

ABF9 

AC06 

ACFC 



ROM control vectors 

Keyword action vectors 

Function vectors 

Operator vectors 

Keywords 

Error messages 

Error message vectors 

lUisc messages 

Scan stack for FOR/GOSUB 

Move memory 

Check stack deptli 

Check memory space 

'out of memory' 

Error routine 

BREAK entry 

'ready.' 

Ready for Basic 

Handle new line 

Re-chain lines 

Receive input line 

Crunch tokens 

Find Basic line 

Perform [NEW] 

Perform [CLR] 

Back up text pointer 

Perform [LIST] 

Perform [FOR] 

Execute statement 

Perform [RESTORE] 

Break 

Perform [STOP] 



Perform 
Perform 



END] 

CONT] 
Perform [RUN] 
Perform [GOSUB] 
Perform [GOTO] 
Perform [RETURN] 
Perform [DATA] 
Scan for next statement 
Perform [IF] 
Perform [REM] 
Perform [ON] 
Get fixed point number 
Perform [LET] 
Perform [PRINT*] 
Perform [CMD] 
Perform [PRINT] 
Print string from (y.a) 
Print format character 
Bad input routine 
Perform [GET] 
Perform [INPUT*] 
Perform [INPUT] 
Prompt & input 
Perform [READ] 
Input error messages 



ip AD IE; 


Perform NEXT 


AD78; 


Type match check 


AD9E; 


Evaluate expression 


AEA8; 


Constant- pi 


AEFl; 


Evaluate within brackets 


AEF7; 


T 


AEFF; 


comma.. 


AF08; 


Syntax error 


AF14; 


Check range 


AF28; 


Search for variable 


AFA7; 


Setup FN reference 


AFE6; 


Perform OR 


AFE9; 


Perform AND] 


BO 1 6; 


Compare 


B081; 


Perform DIMJ 


B08B; 


Locate variable 


B113; 


Check alphabetic 


BUD; 


Create variable 


B194; 


Array pointer subrtine 


B1A5; 


Value 32768 


B1B2; 


Float-fixed 


BlDl; 


Set up array 


B245; 


'bad subscript' 


B248; 


'illegal quantity' 


b;mc; 


Compute array size 


B37D; 


Perform PRE] 


B391; 


Fix -float 


B39E; 


Perform [POS 


B3A6; 


Check direct 


B3B3; 


Perform [DEF 


B3E1; 


Check fn syntax 


B3F4; 


Perform FN 


B465; 


Perform [STR$] \ 


B475; 


Calculate string vector 


B487; 


Set up string 


B4F4; 


Make room for string 


B526; 


Garbage collection 


B5BD; 


Checksalvageability 


B606; 


Collect string 


B63D; 


Concatenate 


B67A; 


Buifd string to memory 


B6A3; 


Discard unwanted string 


B6DB: 


Clean descriptor statk 


B6EC; 


Perform [CHRS 


B700; 


Perform [LEFTS] 


B72C; 


Perform [RJGHT$] 


B737; 


Perform M1D$] 


B761; 


Pull string parameters 


B77C; 


Perform LEN] 


B782; 


Exit string-mode 


B78B; 


Perform ASC] 


B79B; 


Input byte paramter 


B7AD; 


Perform [VAL 


B7EB; 


Parameters for POKE/WAIT 


B7F7; 


F oat- fixed 


B80D; 


Perform [PEEK] 


B824; 


Perform POKE 


B82D; 


Perform WAIT] 



# 



B849; 


Add 0.5 


E394: 


Initialize 


B850; 


Subtract-frora 


E3A2; 


CHRGET for zero page 


B853; 


Perform subtract 


E3BF; 


Initialize Basic 


B86A; 


Perform add 


E447; 


Vectors for S300 


B947; 


Complement FAC*1 


E453; 


Initia ize vectors 


B97E; 


'overf ow' 


E45F; 


Power-up message 


B983; 


Multip y by zero byte 


E500; 


Get /O address 


B9EA; 


Perform [LOG 


E505; 


Get screen size 


BA2B; 


'erform multip y 


E50A; 


Put/ get row/ CO umn 


BA59; 


Mill ip v-a-bit 


E518; 


lnitializel/0 


BA8C; 


Memory to FAC*2 


E544; 


Clear screen 


BAB7; 


AdustFAC*l/*2 


E566; 


Home cursor 


BAD4; 


Underflow/ overflow 


E56C; 


Set screen pointers 


BAE2; 


Multiply by 10 


E5A0; 


Set I/O defaults 


BAF9; 


+ 10 in floating pt 


E5B4; 


Input from keyboard 


BAFE; 


Divide by 1 


E632; 


Input from screen 


BB12; 


Per orm divide] 


E684; 


Quote est 


BBA2; 


Memory to FAC*1 


E69i; 


Setup screen print 


BBC7: 


F^C*1 to memory 


E6B6; 


Advance cursor 


BBFC; 


FAC*2toFAC*i 


E6ED; 


Retreat cursor 


BCOC; 


FAC*I oFAC*2 


E70!; 


Back into previous ine 


BCIB; 


Round FAC*1 


E7i6; 


Output to screen 


BC2B; 


Get sign 


E87C; 


Go to next line 


BC39; 


Perform SGN' 

■ 


E89]; 


Perform <return> 


BC58: 


Perform ABS; 


E8A1: 


Check ine decrement 


BC5B; 


Compare FAC*1 o mem 


E8B3; 


Check line increment 


BC9B: 


:^ oat-fixed 


E8CB; 


Set CO or code 


BCCC; 


Perform inl 


ESDA; 


Color code tab e 


BCF3; 


SrriagtoFAC 


E8EA; 


Scrol screen 


BD7E: 


Ge ascii digit 


E965; 


Open space on screen 


BDC2; 


Prim 'IN,; 


B9CS; 


Move a screen line 


BDCD; 


Prin line number 


E9E0; 


Synchronize co or transfer 


BDDD; 


^ oal Lo ascii 


E9F0; 


Se s ar-of-line 


BF16; 


Dednia constants 


E9FF; 


Clear screen ine 


BF3A; 


TI constants 


EA13; 


Print to screen 


BF71;. 


.Perform SQR] 


EA24; 


Synchronize color pointer 


BF7B; 


Perform power 


EA31; 


Interrupt - clock etc 


BFB4; 


Perform negaLive] 


EA87; 


Read keyboard 


BFED; 


Perform EXP 


EB79; 


Keyboard se ect vectors 


E043; 


Series eval 1 


EB81; 


Kevboard 1 - unshif ed 

■J 


E059; 


Series evai 2 


EBC2; 


Cevboard 2 - shifted 


E097; 


Perform [RND; 


EC03; 


Keyboard 3 - 'comm' 


E0f9; 


?? breakpoints ?? 


EC44; 


Graphics/text contrl 


E12A; 


Per orm [SYS 


EC IF; 


Set graphics/text mot e 


E 56; 


Perform SAVE 


EC78; 


Keyboard 4 


E165; 


Perform VERIFY 


ECB9; 


Video chip setup 


El 68; 


Perform LOAD] 


ECE7; 


Shift/ run equivalent 


ElBE; 


Perform [OPEN 


ECFO; 


Screen In address low 


E1C7; 


Perform [CLOSE] 


ED09; 


Send 'talk' 


E1D4; 


Parameters for LOAD/SAVE 


EDOC; 


Send ' isten' 


E206; 


C "leck defau t parameters 


ED40; 


Send to seria bus 


E20E; 


Check for comma 


EDB2; 


Serial timeout 


E219; 


Parameters for open/close 


EDB9; 


Send istenSA 


E264; 


Perform COS] 


EDBE; 


Clear ATN 


E26B; 


Perform SIN 


EDC7; 


Send talk SA 


E2B4; 


Perform TAN] 


EDCC; 


Wai for clock 


E30E: 


Perform ATK 


EDDD; 


Send serial deferred 


E37B; 


Warm restart 


EDEF; 


Send 'un alk' 



^, 



- 


EDFE; 


Seiid 'unlisten' 


F7D(): 


Get bufer address 




EE13; 


Receive from serial bus 


F7D7; 


Set buffer start/end pointers 




EE85; 


Serial clock on 


F7EA; 


Find speci ic header 




EF.8E;' 


Seria cocl<off 


F80D; 


Bump tape pointer 




EE97; 


Serial output i' 


F817; 


'press play..' 




EEAO; 


Serial output 'O' 


F82E; 


Check ta >e. status 




EEA9; 


Get serial in & clock 


F838; 


'press record..' 




EEB3; 


Delav 1 ms 


F841; 


Initiate tape read 




EEBB; 


RS-232scnd 


F864; 


Initiate tape write 




EF06; 


Send new RS-232 byte 


F875; 


Common tape code 




EF2E; 


No-DSR error 


F8D0; 


Check tape s op 


if 


EF31; 


No-CTS error 


FSE2; 


Set read timing 




EF3B; 


Disable timer 


F92C; 


Read tape iJits 




EF4A; 


Compu c bit count 


F^60; 


Store ape chars 




EF59; 


RS232 receive 


FB8E; 


Reset pointer 




EF7E; 


Setup to receive 


FB97; 


New character setup 


- 


- EFC5; 


Receive parity error 


FBA6; 


Send transition to tape 




. EFCA; 


Receive over low 


FBC8; 


Write data to tape 




EFCD: 


Receive break 


FBCD; 


X 

RQ entr^' point 




EFDO; 


-'raming error 


FC57; 


Wri e tape leader 




EFEl; 


Submit 0RS232 


FC93; 


Restore norma IRQ 




FOOD; 


No-DSR error 


FCB8; 


Set IRQ vector 




F017; 


SendtoRS232bufer 


FCCA; 


Ki f tape motor 




F04D; 


Input from RS232 


FCDl; 


C leck r/w pointer 




F086; 


Get from RS232 


FCDB; 


Bump r/w pointer 




F0A4; 


Clieck seria bus idle 


FCE2; 


-"ower reset entry 




FOBD; 


v'l ess ages 


FD02; 


Check 8-ram 




F12B; 


Print if direct 


FDIO; 


8-rom mask 




F13E; 


Get,. 


FD15; 


Kernal reset 


■ 


F14E; 


..from RS232 


FDIA; 


Kernal move 




- F157; 


npu 


FD30; 


Vectors 




F199: 


Get..tape/serial/rs232 


FO50; 


Initialize system constnts 




FICA; 


Outpu .. 


FD9B: 


IRQ vectors 




FIDD; 


..to tape 


FDA3; 


Initialize /O 




F20E; 


Set input device 


FDDD; 


Enable timer 




F250; 


Set outpu device 


FDF9; 


Save fi ename data 




F29 ; 


C ose fi e 


FEOO; 


Save fi e details 




F30F; 


Find file 


FE07; 


Get status 


- 


F31F; 


Set file values 


FE18; 


F ag status 




F32F; 


Abor ai files 


FEIC; 


Se status 




F333; 


Res ore default /O 


. . FE21; 


Set timeout 




F34A; 


Do file open 


FB25; 


^ead/set top of memorv 




F3D5: 


Send SA 


FE27; 


Read top memory 




F409; 


Open RS232 


FE2D; 


Set top of memory 




F49E; 


Load program 


FE34; 


Read/set bottom of memorv' 




F5AF; 


'searching' 


FE43; 


NMI entry 




F5C1; 


Print fi ename 


FE66; 


Warm start 




F5D2; 


'loading/verifying' 


FEB6; 


Reset IRQ & exit 




. F5DD; 


Save program 


FEBC; 


In errup exit 




F68F; 


Print 'saving' 


FEC2; 


RS-232 timing table 


- 


F69B; 


^ump clock 


FED6; 


NMIRS-232in 




F6BC; 


Log l^IA key reading 


FF07; 


NMI RS-232 out 




F6DD; 


Get time 


FF43; 


Fake RQ 
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Set time 


FF48; 


RQ entry 




F6ED; 


Check stop key 


FF8i; 


Jum:)0 jump table 




F6FB; 


Output error messages 


FFFA; 


Hardware vectors 




F72D; 


Find any tape headr 








F76A; 


Write tape header 







$0000 
SOOO] 



Processor I/O Port (6510) 



IN 


IN 


OUT 


IN 


OUT 


OUT 


; OUT 


OUT 


! 


Tajjf 
Mo)or 


Tape 
■ Sen.se 


Tjpe 
Write 


D-ROM 
Switch 


EF RAM 
Switch 


AB RAM 
Switch 



DDR 
PK I 



SID (6581) 



Vofce 1 Voice 2 Voice 3 

$D400 $L)407 .^m40E 

$DAO\ $D40S $D40F 

£0402 WWJ SD410 

SD403 $D40A SD4n 

£0404 $n40b $D412 

SD405 SD40C SD413 

SD406 £D40D $D414 







Frequency 




L 
H 






Pu^eWidEi 




L 
H 













NSE 


Voice Type. 
, PUL , SAW , 


TR , 


J 1 L 


Kev 

V 




AEtaijk Time 
, 2msT8iEi5 , 


1 


Decav Time 

r" 

, Gm^ "24 sec , 






Sustain Level 


> 


Release Time 
. Sm.s ,24 sec , 





Voice ] Voice 2 Voice 3 



54272 54279 



>4286 



Voices (write only) 



54273 54280 54287 



54274 54281 5428a 



54275 54282 54289 



54276 54283 54290 



54277 54284 54291 



54278 54285 54292 



- -^ 



! 



$C415 
SD41S 
SD417 
$D418 














L 
H- 






Filler Preqiienc^ 


r 


L 


Resonance 

1 


Filter Voices 
, Ex! , V3 , V2 , 


V 


V3 Off , 


Passbdnd: 
HI , BP 


Master 
, LO 1 , Vo »;nje 





54293 
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54295 
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Filter 8i Volume (write only) 



$D419 
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SD41B 
$D4]C 



LaddleX (A/D"!) 



PaddltY [A/D*2) 



Noise 3 (random) 



Envelope 3 



Sense (read only) 

Note; Special Voice Features 

(TEST, RING MOD, SYNC) 

are omitled from the above dia<fram. 



54297 
54298 
54299 
54300 



CIA 1 (IRQ) (6526) 
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Paddle Sel 
A E3 

" ^^ — ^ — . «-^ — . ■ 




Fire Ri^hl 


JovstitkC 
Left 


Down 


Ud 


PRA 

PKB 

DDRA 
DDRR 

TAL 
TAH 
TBL 
TBH 

ICR 

CRA 
CRB 


^ y" Ci j~L s^ 


Keyboard Row Select ^inverted) 


5ti320 


3DC0] 








Fire Ri^hl 


Joystick 1 
Left 


Down 


Up 


JT r-" |-| |-H 


Keyboard Column Read 


V 




5632 
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« 


^ ^ 

3FK - All Oulpul 








!36,'522 


SDC03 






SOO - Al nput 




56323 
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— 


^ 


Timer A 
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5DC06 

1 

SDC07 




^ 
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--h 
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$DCOD 




Tape 

Input 


j 


Timer h 
B 


Lterrupt 
A 
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$DCOE 


_J 1 1 . 1 


i One 

Slot 


Out 
Mode 


Time 
PBGOut 


Timer 
A Start 


5G334 
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C 1 


1 


■ One 

Shot 


Out 
Mode 


Time 
PB7 0ul 


Timer 

BSlart 


56335 
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$DD03 
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SeridI 

IN 


Cock 
N 


Scria 
OUT 


Cock 
OUT 


ATN 
OUT 


RS-232 
OUT 


VIC 1 

addr 15, 


veil 

iiddr 14 


DSR 
IK 


CTS 
IN 




DCD* 


IN 


DTR 
0[JT 


Ri'S 
OUT i 


RS-232 
N 


$3F- Serial 




SOO-RU,P. Alinpu! or 


$06 


- HS-232 


— 1 imer A — 


~— Timer B - — 



















'V 



$DDOD 
SOPOE 
$DDOF 



RS-232 
I\ 



PRA 56576 

PRB 56577 

DDRA 56578 

DDRB 5G579 

TAL 56580 

TAH 56581 

TBL 56582 

TBH 56583 



'V 



Timer Interrupl 
B A 



Timer 

A Start 



Timer 

B Start 



ICR 56589 
CRA 56590 
CKB 56591 



* Connected but not used bvO.S. 
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The Ultimate CBM~ Word Processor 



A Commodore enthusiast wanted a word processor 
that was simple, fast and easy to use- He wanted to 
handle up to 20,000 characters of text, use a wide 
screen format of up to 240 characters with full 
window scrolling in all directions and be able to 
use the screen while printing. He wanted a word 
processor at a reasonable price. The enthusiast 
Simon Tranmer, couldn't find one , . . 



So he wrote 



ht 



^if^jiT 



•tit 



I does everything he wanted. . .and much 

more, ft provides a complete document preparation 
and storage system, making optimum use of 
memory and disk space. It gives access to all the 
letter quality printer features such as boldface and 
ribbon colour change. In short, it provides all of the 
advantages of a dedicated professional word pro- 
cessor. 



■d 



Sf^ 



everything Commodore 
wanted. .V which Iswhytheyareadoptingitforallof 
their forthcoming models. 




ABOUT SUPERSCRIPT 

Superscript transforms your 
Commodore computer \n[o a true word 
processor, enabling your secretar/ to 

turn out high quality letters, mailshots, 
quotations, contracts and reports more 
quickly and easily than ever before. 

QUALITY AT YOUR 
FI^^SERTIPS 



J 



Word processing with Superscript allows 
you to make all the changes you need at 
the screen, from a simple spelling 
correction to a complex re-ordering ot 
paragraphs. You can control the final 
format iSf the printed document by 
inserting printer commands where 
required. These commands include bold 
face, underlining, superscripts, 
subscripts, variable pitch and ribbon 
colour change, in fact all of the attractive 
formatting features found on modern 
letter quality printers. 

PERFECT COPIES EVERY 
TIME 

Once the preparation of the document is 
basically comptete, you can view it on 
the screen exactly as it will appear on 
paper Then you can either continue to 
make corrections and improvements, or 
proceed to print. Superscript will print as 
many final copies as you like, whenever 
you like, 

UNBEATABLE VALUE 

No ROM or cassette key needed 
N4ultl-user at single price 



Exclusive Canadian Distributor 




J 



J 



J 



CANADIAN MICRO DISTRIBUTORS LTD. 

SOOStpeles Ave, Milton, Onlario.CanaddL9T3P7,i'416-B7e-7;77 




PRIMARY FEATURES 

Use ot screen as a window on text with SCROLLING in all direclions 
MEMORY SPACE (or 250 lines ot text 80 columns w(de (20,000 characters) 
TEXT WIDTHS from screen size up to 240 characters 

SIMPLE VIEi'V^'O^^^G nl text with or without embedded commands 
Ability to insert into the text explanatory COMMENTS that are not pnnted 

LOAD files created by other packages, including Wordcraft^". Wordpro'" and 
The Manager'"'^, for merging, ediling and printing 

EDITING FACILITIES 

Ability 10 execute COMMANDS on a succession of linked documents 

SEARCH and REPLACE of a piece of lext in one or a string of documents 

Powerful INSERTION and TRANSFER capability 

ERASE all, remainder paragraph or sentence 

Automatic a manual MERGING of fjles e g. for mailing or credil control 

HORIZONTAL, VERTICAL and DECIMAL tabs, which can be 

saved on disk 

CENTERING and RIGHT ALIGNMENT with mix of normal and enlarged 

characlers 

HEADERS and FOOTERS on every page with au!o page numbering 

PRINTING 

CONTROL of: both margins, iines per page, text lines per page, 

line spacing, auto line feed and forced paging 

DOCUMENT PRINTING: continuous, singlesheet or multicopy singly or as a 

string of documents with merging as required 

BACKGROUND PRINTING: single page or continuous, freeing screen for 

other tasks 

RIGHT JUSTIFICATy^N with equal white spacing on letter quality printers 

PRINT FEATURES include; underlining, enhancement, bold print, 

superscripts, subscripts, ribbon colour change, variable lineand character pitch 

SPECIAL PRINTER CHARACTERS can be used eg tjackspace, 

escape codes, user defined characters 

SUPERSCRIPT - one disk runs on the 

2001 , 4016/32. 8032 and 8096 Commodore computers, 4040 and 6050 

disk drives, all Commodore printers and a wide range of letter quality printers. 



C6M IS a ragi^iersd irartsmark of Commoflore Business Machines 
Wordcrafl is a regislered iradomark ol Daiflview Limiied 
WordproisH registered Irademark of Professional Software Inc 



$1 50.00 
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Superscript (wordprocessor 
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Consultors Inl' 
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.eadifigRdgeliic 


Stock Market With Your PC (book) 
A To Z Book 0[ Games 
!)ynamics Of Money Mgml (book) 
invment. Analysis w/Your Micro (book) 

Elephant Diskettes 
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64 
64 
G4 
64 

BC 
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In The Next Issue Of 



The Tn^i^ss^for 



• Butterfield Centerfold 

• Meet SID -Voice Of The 64 

• Commodore 64 Organ Program 

• 4040 Power/Error Indicator 

• Machine Code Editor 
Link To BASIC-Aid 

• Plus More On - VIC-20 

- PET/CBM 

- SuperPET 

Keep On Transactin'... 
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i I7TOT At^© pr.ui-' 

.,— - D YOU CAN PLAY THE STOCKS BOND 

W%. MARKETS WITH YOUR PERSONAL 

**■" COMPUTER'. New! One-of-a-kind 308 page ilkis- 
tfsted Source Book can reacfi you hoM (o use computers in ths 
Imeslineni Field. For Novice or AdvanceO Computer l-lobO/isIs who 
want MORE from tfieir machines and make money! Shows how to gel 
started in StocK 5 Bond Martels PLUS how to uso your computer as a 
data source for determming profitsbie stock selections, buy-seti de- 
disions, market ei/alualions: Order #71251 Deiiveied $11.75 ^ 

WW»WtftfW CHECK-CUP-MAIL TODAY! j»»»W $ Wf W WB 



D NEW! A TO Z BOOK OF COMPUTER GAMES! 

HOME 'N' OFFICE FUN^TO-MAKE PROJECTS! 

Tested. Ready-to-Run Programs with Adult & Kids Vari3- 
tions. Poker. Black Jack. RoulQtte, PLUS Gunners, Kr\tghts, 
Hot-Shot 'N' More'. 303 Pages 73 lllust. Order T1026 Delivered $9 75. 




MAM?^^c^S" ?J l^"??"^^ }^^^^ ! "] "INVESTMENT ANAIVSIS WITH VOUR 

MANAGEMENT The Be^T Solid/vlonev-lMICROCOMPUiERS" Lotes! In Depth 

Gude using every 'acef of good Invesl- 



Monaging Advice ever Stufled Intc 
On© Great Soujce' This is ihe Prrme 
Source of The BesI Money Saving, 
Money Monaging Informolion Avail- 
able A Financial Suiviuol MonuOl Of 
Savings Invest rnenT Strategies Thot Will 
Send Your Net Worth Soaring. Orde' 
*4P.. SI-l.PS DelfveiQC? OUT U^. by Air 
S19.95. Canada, Me>;ico bv AIR £19 25 



ment Theor/ S-. Computej Usage To Aid 
fn Decision Making Process 3 Woys to 
Use The Pesulfs to Moke Evaluations 
Quickly Order #T1479 Sl2 75 Delivered 
OUT US by AlP 516 25. Conado. Meyico 
b¥AlRS15.25 

(Business Br:ok? Tax beductiW el 



MONEY BACK GUARANTEE 
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rS[' CHECK YOUR SELECTION ABOVE ^ ^ ^ 
Check MO. D VISA D MASTERCARD 

Exp 



Name 



I 



Address 
City 



State 



Zip 



CONSULTORS INTL. BOX 6589 -D 
DENVER, CO 80206 USAmm 



I 



THE ULTIMATE TOOL FOR 

THE PROFESSIONAL PROGRAMMER 







MULTIPLE FILE ACCESS 

& CREATION 



MASTER has 70 commands that allow you to create 
your own business software 

U(j to 10IGAM liluL,uptjnL,iniulLunuuuBty 
Mnximum file size not limited by DOS 
Supports data packing 



SCREEN FORMATTING ConCroKed data Input 

Complete PRINT USING 
Graphics supported 

REPORT GENERATOR Multiple filfl cnpnhillty 

Full pnntod fun nuLLing 



88k MEMORY MANAGEMENT 



BCD MATH PACKAGE 



For 8096 or Z-RAM board 

5Bk program space. 26k variables 

Up to 16 programs co -resident with common 

subruuLiiHiE 

Full programmers aid instructions including plotting 

22 digit predBlon 

No binary pounding arpor 



COMPUTED OOTOB AND GOSUBS 

PROGRAM SECURITY WITH 
DATA-KEY AND NO-LIST OPTION 



$350. 



II 



Nuw available for: 

8096, Z-RAIVI soap, B032 - 

[no memory management] 

Subset tor 4032 

As a DEVELOPMENT or RUN-TIME system 

Developed ljy MICno/APPlJCATlONS 

8096 is Commnrinre's, Z-RAM ie Madison ComputerB 

Miifiiitil GiDeniu Dink only for EVBkJBtion 830.00 
[Applicable to Purchase of Packnge] 



Dibtrlbuted by 




CANAniAN MICKO UlSIRIUUTOKS LID. 

-idliSliiffi.. A.v , Mllliiii Onrmii-, I i.pnil«l1l 11''/ lid HTII 7l7t 
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FORGETS' 



MORE THANJUST ANOniBi PRETTY NCE. 
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Says who? Sayii ANSI. 

SpcLiliLully, subcoiiitnittec X3B8 u[ thft American 
Nationol Stondards Institute (ANSI) says so. The fact 
is all Elephant^^ floppies meet or exceed the ipecs 
required to meet or exceed all their itondordt. 

But just who is 'subcommittee X3B8" to issue such 
pronouncements! 

They re a group of people representing a lorgej 
well-balanced crois lection of diiciplinet— from 
ocodemio, government agencies, ond the con^puter 
industry. People from places like IBM, Hewlett-Packard, 
3M, Lawrence Livennore Labs, The LI,S, Department 
of Defense, Honeywell and The Association of Com- 
puter Progrommers and Analysts. In short, it's a bunch 
of high-caliber nitpickor^ whose mission, if seems, in 
order to make better disk^ for consumers, is also to 



make life miserable for everyone in the disk-making 
buiineis. • 

How? By gothering together periodically (often, 
one suspects, under the full moon) to concoct more 
ond more rules to increase the quality of flexible 
diiks. Their most recent rule book runs over 20 single- 
spaced pages— listing, and insisting upon— hundreds 
upon hundreds of standards a disk must meet in 
order to be blessed by ANSI. (And thereby be token 

riously by people who take disks seriously.) 
n fact, if you'd like a copy of this formidable docu- 
ment, for free, juit let us know ond we'll send you 
one. Because once you know what it luku-^ ro make 
an Elephont for ANSI . . . 

We think you'll want us to make some Elephants 
for you. 



aEPHAHT. HEflTY DUTY DISKS. 

For a true postei -sije portrait of our powerful pachyderm, please write us. 

Distributed Exclusively by Leading Edge Products, Inc., 225 Turnpike Street, Canton, Massachusetts 02021 

Call: toll-free V800^343-6833; or in Massachusetts call collect (617) 828'8I?50, Telex 951-624, 



